标题：老爹,5号更新打印初步测试结果....好象更郁闷了....

老爹,打印上的BUG改哪了?能具体些吗?让我好更正....



感觉好象是页边距改掉了...

赶快回办公室试试...

原来专业报表的页面设置，对预览有效，直接打印有时无效，下载应该都有效了。

我现在回办公室帮您测试...

测试代码如下:
Dim doc As New PrintDoc
Dim rx As prt.RenderText
Dim x As Integer = tables("打印参数")(0)("X参数")   'X为0
Dim y As Integer = tables("打印参数")(0)("Y参数")    'Y为0
Dim a As Integer = tables("纸张参数")(0)("A参数")    'A=187
Dim b As Integer = tables("纸张参数")(0)("B参数")    'B=102
doc.PageSetting.Width = a
doc.PageSetting.Height = b
doc.PageSetting.Landscape = true
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0

Dim CurRow As Row = Tables("住院收费").Current

预览非常漂亮.......但是......打印时变成了坚着打了,而且全体数据缩小.......,跟昨天测试的差不多......

另外我昨晚设置好的套打原本正常,现在全变成坚着打了...就是我发的那个实例....

更惨的是好象不管如何设置都不能让打印变成预览所示那样打印...

老爹,家里跟办公室都更新掉了....给个1号版本我暂时用着...今晚没时间测试啦......明天还要用来打fa piao呢...

此主题相关图片如下：001.jpg

请传完整的文件和代码给我测试看看。

就是我今天发的那个piao据套打实例....您加精那个.



窗口打印按钮设置了直接打印..

在专业报表那有可以预览的相同代码放着.....

俺用的是EPSON LQ300K+ 打印机...

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:住院fa piao套打.table

我在一台接有打印机的电脑测试了，一切正常

打印对象的字体，请明确指定看看。

老爹,先不讲字体....横打变坚打这个怎么回事?另外您的打印机有没专门设置默认纸张?

是否因为狐表对纸张的判断有误?比如说:狐表认为纸张的高一定大于宽?换个说法就是纸张宽高是以其长短判断?

doc.PageSetting.Landscape  这个设置有问题啊...

设为true预览正常如下图,打印却成了竖打.....全体数据转了个90度.....

此主题相关图片如下：001.jpg


设为False预览如下图.....打印是横向打印,但因为预览显示不完全,又只打了一半...

此主题相关图片如下：002.jpg

基本确定是狐表对纸张的判断有误...

doc.PageSetting.Width = 217
doc.PageSetting.Height = 132

这两行代码如果执行问题如楼上...横变竖...竖变横...

如果删除这两行代码,套打位置正常,只是进退纸距离成了A4纸张...

当设定如下时,整体数据字体缩小..
doc.PageSetting.Width = 217
doc.PageSetting.Height = 220


不加任何参数打印居然正常了...
Dim doc As New PrintDoc
Dim rx As prt.RenderText

并且X.Y都为0....2月1号的版本反而要设Y=-9,打印机设置跟昨天一样没变,默认纸张为自定义的217/132
打印时进退纸距离还是A4