主题：[求助]窗口四联打印(24*14)总多一张空白

e.Form.Page.Width = 220

e.Form.Page.Height = 135

e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距
e.Form.Controls("打印时间").text = "打印时间:" & Date.Now
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
'doc.AutoRotate = False '禁止自动旋转打印内容
Doc.PrinterName = DefaultPrinter
doc.Print()
'*****保存********
Dim bcbt As WinForm.Button = e.Form.Controls("保存")
If bcbt.Visible = True Then
    bcbt.PerformClick()
End If

宽高设置调小一点试试

e.Form.Page.Width = 220

e.Form.Page.Height = 135

调整小了，还是不行。

 是不是你打印的内容超出了纸张的范围了啊？另外做一个小窗口，简单加入内容，看是否也同样会这样。

 再有就是，你窗口某些控件，是不是有属性设置 另起一页 成了 true

控件中没有你说的另起一页，窗口整很小了，还是多一页空白。

 我测试打印，没有问题啊。

 你尝试不要设置页面大小。

'e.Form.Page.Width = GetConfigValue("_zldzzkd", 240) '纸张宽度为100毫米
'e.Form.Page.Height = GetConfigValue("_zldzzgd", 140) '纸张高度为120毫米
'e.Form.Page.LeftMargin = 1 '设置左边距
'e.Form.Page.RightMargin = 5 '设置右边距
'e.Form.Page.TopMargin = 2 '设置上边距
'e.Form.Page.BottomMargin = 10 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
'doc.AutoRotate = False '禁止自动旋转打印内容
Doc.PrinterName = GetConfigValue("_zlddyj",DefaultPrinter)
doc.print

怎么都不行，多一张空白纸。晕了。