向专家求助:
我在窗口设计时,已经在页面设计时将纸张设置为自定义纸张(如图,窗口设计),同时在“打印预览”按钮的click事件中写了如下代码:
e.Form.Page.Width = 240 '纸张宽度为100毫米
e.Form.Page.Height = 140 '纸张高度为120毫米
e.Form.Page.Landscape = True '横向打印
e.Form.Page.LeftMargin = 23 '设置左边距
e.Form.Page.RightMargin = 23 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
但在使用项目时,点击打印预览按钮时,弹出的预览页面的页面设置的中纸张大小却是A4(如图打印预览),请问如何能使打印预览页面的页面设置和窗口中的自定义纸张保持一致。
多谢了!
此主题相关图片如下:窗口设计.jpg
此主题相关图片如下:打印预览.jpg