- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口打印的问题：横纵向不受控制，自定义尺寸影响打印的线宽 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73370)
-- 发布时间：2015/8/18 11:14:00
-- [求助]窗口打印的问题：横纵向不受控制，自定义尺寸影响打印的线宽
再发一次吧。
1、窗口打印横向纵向设置不受控制。坛里有说不预览直接打印，我想说，这是方法吗？
2、同一台打印机，同一个窗口，页面设置的纸张改变后打印效果（主要是线的打印效果）不一样，而且和第1点一样，横纵向还是不受控制。
看图说话吧
此主题相关图片如下：窗口1.jpg
窗口2打印和页面设置：此主题相关图片如下：窗口2.jpg
窗口1和窗口2打印效果对比，注意看线条：此主题相关图片如下：线宽对比.jpg
测试项目文件一并上传：
-- 发布时间：2015/8/18 11:15:00
--
补充测试项目文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目30.foxdb |
另外，打印机是用的针打，型号Aisino TY-820II，
用激光打印机打印，线条不会出线这种情况。
试了专业报表，线条打印效果也很好。
就是这个窗口打印有问题，真的快疯了，
[此贴子已经被作者于2015/8/18 11:18:49编辑过]
-- 发布时间：2015/8/18 12:03:00
--
自己顶上来
-- 发布时间：2015/8/18 12:06:00
--
关于线，你想怎么处理都可以
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
If c.Gettype.Name Like "*Table*" Then
Dim t As prt.RenderTable = c
t.Style.GridLines.All = New prt.Linedef(1, Color.Red)
End If
Next
doc.Preview
[此贴子已经被作者于2015/8/18 12:06:03编辑过]