- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教打印问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14989)
-- 发布时间：2011/12/9 9:06:00
-- 请教打印问题
实际纸张是：241 139
第一格表打印不到最右边是怎么回事，
代码如下：
Dim doc As New Printdoc
doc.PageSetting.Width = 241 \'纸张宽度为241毫米
doc.PageSetting.Height = 139 \'纸张高度139
Doc.PageSetting.TopMargin = 8 \'设置上边距
Doc.PageSetting.BottomMargin = 5 \'设置下边距
Doc.pagesetting.LeftMargin = 5
Doc.PageSetting.RightMargin = 0
doc.AutoRotate = False
doc.PageSetting.Landscape = True
Dim rt As New prt.RenderTable() \'定义一个表格对象
rt.Cols.Count = 1 \'设置rt行列数
rt.Rows.Count = 1
rt.Height = 20
rt.Style.GridLines.bottom = New prt.Linedef
rt.Cols(0).Width = 241
doc.Body.Children.Add(rt)
Dim rt1 As New prt.RenderTable() \'定义一个表格对象
rt1.Cols.Count = 1 \'设置rt行列数
rt1.Rows.Count = 1
rt1.Height = 20
rt1.Style.GridLines.bottom = New prt.Linedef
rt1.Cols(0).Width = 214
doc.Body.Children.Add(rt1)
Doc.Print()
此主题相关图片如下：1209.jpg
-- 发布时间：2011/12/9 9:23:00
--
你测试一下打印出来的线条的宽度是不是241，如果是，线条加长，如果不是，加长线条，再次打印测试，如果还是到不了最右边，也许是超出了可打印宽度。
-- 发布时间：2011/12/9 12:14:00
--
线条只有204，加多少都只有这个数，宽度是没超过的，用excel报表都能打
-- 发布时间：2011/12/9 14:32:00
--
把页宽加大：
doc.PageSetting.Width = 261
-- 发布时间：2011/12/9 14:44:00
--
这个可以调打印机挡板 把挡板向左移或者调整打印参数
-- 发布时间：2011/12/9 16:49:00
--
页宽放大，还是不行，
不知问题出在哪里