主题：[求助]套打单据纸张大小问题

我在单据套打代码中设置了纸张大小，预览时纸张大小与设置的相符，再点击预览窗口中的打印按钮，纸张就变为A4大小了。还要在打印机设置里在重新设置一遍吗？

代码开头部分：

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.Width = 230 '纸张宽度为100毫米
doc.PageSetting.Height = 127 '纸张高度为120毫米
Dim rx As prt.RenderText '定义一个文本对象
Doc.PageSetting.LeftMargin = 19 '设置左边距
Doc.PageSetting.RightMargin = 20 '设置右边距
Doc.PageSetting.TopMargin = 24 '设置上边距
Doc.PageSetting.BottomMargin = 12 '设置下边距

 

......

 

在预览窗口显示纸张大小与设置相符：

  

此主题相关图片如下：image 1.jpg

 

点击预览窗口中的打印按钮后：

 

此主题相关图片如下：image 2.jpg