- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老爹,5号更新打印初步测试结果....好象更郁闷了.... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1743)
-- 发布时间：2009/2/5 21:40:00
-- 老爹,5号更新打印初步测试结果....好象更郁闷了....
老爹,打印上的BUG改哪了?能具体些吗?让我好更正....
感觉好象是页边距改掉了...
赶快回办公室试试...
-- 发布时间：2009/2/5 21:43:00
--
原来专业报表的页面设置，对预览有效，直接打印有时无效，下载应该都有效了。
-- 发布时间：2009/2/5 21:45:00
--
我现在回办公室帮您测试...
-- 发布时间：2009/2/5 22:10:00
--
测试代码如下:
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号版本我暂时用着...今晚没时间测试啦......明天还要用来打发票呢...
此主题相关图片如下：001.jpg
-- 发布时间：2009/2/5 22:37:00
--
请传完整的文件和代码给我测试看看。
-- 发布时间：2009/2/5 22:41:00
--
请传完整的文件和代码给我测试看看。
就是我今天发的那个票据套打实例....您加精那个.
窗口打印按钮设置了直接打印..
在专业报表那有可以预览的相同代码放着.....
俺用的是EPSON LQ300K+ 打印机...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住院发票套打.table |
-- 发布时间：2009/2/5 23:17:00
--
我在一台接有打印机的电脑测试了，一切正常
-- 发布时间：2009/2/5 23:21:00
--
打印对象的字体，请明确指定看看。
-- 发布时间：2009/2/6 8:10:00
--
老爹,先不讲字体....横打变坚打这个怎么回事?另外您的打印机有没专门设置默认纸张? 是否因为狐表对纸张的判断有误?比如说:狐表认为纸张的高一定大于宽?换个说法就是纸张宽高是以其长短判断?
doc.PageSetting.Landscape 这个设置有问题啊...
设为true预览正常如下图,打印却成了竖打.....全体数据转了个90度.....
此主题相关图片如下：001.jpg
设为False预览如下图.....打印是横向打印,但因为预览显示不完全,又只打了一半...
此主题相关图片如下：002.jpg
-- 发布时间：2009/2/6 8:54:00
--
基本确定是狐表对纸张的判断有误...
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