主题：[求助]如何按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

将窗口滚动条往下接，再点打印，窗体内容还是不能全部打印出来。只有当前窗口看得到的部分。

滚动条拉到最上面就可以打印全部内容，往下拉到底部，上面部分就打印不出来了。