标题：请教打印问题

实际纸张是：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

你测试一下打印出来的线条的宽度是不是241，如果是，线条加长，如果不是，加长线条，再次打印测试，如果还是到不了最右边，也许是超出了可打印宽度。

线条只有204，加多少都只有这个数，宽度是没超过的，用excel报表都能打

把页宽加大：

 

doc.PageSetting.Width = 261

这个可以调打印机挡板 把挡板向左移或者调整打印参数

页宽放大，还是不行，

不知问题出在哪里