主题：打印设置问题

老师，我设计了一个窗口，打印领料单，页面设置里无论怎样设置，实际打印宽度始终是21厘米，实际用的纸是23厘米，怎么解决这个问题？

Dim doc As New PrintDoc()
doc.PageSetting.Width = 200  '纸张宽度为200毫米
doc.PageSetting.Height = 170  '纸张高度为170毫米
doc.AutoRotate = False  '如果纸张的宽度超过高度,要加上这行代码
'添加打印内容
doc.Preview

自定义纸张

要使用自定义纸张，只需直接设置纸张的宽度和高度即可，单位为毫米。

示例

例如使用一个10厘米宽，12厘米高的纸张：

e.Form.Page.Width = 100 '纸张宽度为100毫米
e.Form.Page.Height = 120 '纸张高度为120毫米
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

老师，代码放在哪里？

放在按钮里提示错误

编译错误：local variable "doc" is already declared in the current blok