主题：[求助]如何按A4纸尺寸打印窗体

改变窗口大小，然后打印，再设置回来

Dim width As Integer = e.Form.baseform.Width
Dim height As Integer = e.Form.baseform.Height
e.Form.baseform.Width = 1200
e.Form.baseform.height = 1200
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()  '打印预览
e.Form.baseform.Width = width
e.Form.baseform.height = height