- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- XP系统窗口打印表格没有线条 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150874)
-- 发布时间：2020/6/9 20:02:00
-- XP系统窗口打印表格没有线条
这个是XP系统，窗口打印预览，表格没有线条
此主题相关图片如下：2.png
此主题相关图片如下：1.png
这个是WIN7系统，窗口打印，是有线条的
此主题相关图片如下：3.png
这个是代码，麻烦老师帮我看一下是什么问题？
Select Case r("打印纸张")
Case "一等分(241cm*210cm)"
e.Form.page.width=241
e.Form.page.height=280
e.Form.Page.LeftMargin = r("左边距") \'设置左边距
e.Form.Page.RightMargin = r("右边距") \'设置右边距
e.Form.Page.TopMargin = r("上边距") \'设置上边距
e.Form.Page.BottomMargin = r("下边距") \'设置下边距
Case "二等分(241cm*140cm)"
e.Form.page.width=241
e.Form.page.height=140
e.Form.Page.LeftMargin = r("左边距") \'设置左边距
e.Form.Page.RightMargin = r("右边距") \'设置右边距
e.Form.Page.TopMargin = r("上边距") \'设置上边距
e.Form.Page.BottomMargin = r("下边距") \'设置下边距
e.Form.Controls("Table1").MaxRows = 12
Case "三等分(241cm*93cm)"
e.Form.page.width=241
e.Form.page.height=93
e.Form.Page.LeftMargin = r("左边距") \'设置左边距
e.Form.Page.RightMargin = r("右边距") \'设置右边距
e.Form.Page.TopMargin = r("上边距") \'设置上边距
e.Form.Page.BottomMargin = r("下边距") \'设置下边距
e.Form.Controls("Table1").MaxRows = 4
End Select
Dim b1 As WinForm.Label = e.Form.Controls("Label17")\'是否显示三联单标签
If b1.visible = False Then
b1.Printable = False
Else
b1.Printable = True
End If
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Preview()
-- 发布时间：2020/6/9 20:08:00
--
系统主题影响的。到窗口设计里设置表格线颜色，颜色不要选择系统颜色，改为web颜色或者自定义颜色。