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

宽高设置调小一点试试

 

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

 单独做一个窗口，打印一个label文字，看是否也会是两页。

先测试10楼，你看看是否你打印机问题

 

http://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=monline_4_dg&wd=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD&oq=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD&rsv_pq=92a294c90001e1bb&rsv_t=34df3NkqrKKYpm5mJHkqt20cuRRroYu1T98QwbrZMiLOjyW19cU7KZrhtT9ZzjLTwv0x&rqlang=cn&rsv_enter=1&rsv_sug3=5&rsv_sug1=4&rsv_sug7=101&rsv_n=2&bs=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD

 

 打开foxtable自带的例子【piao据打印.table】，测试一下预览和打印是否正常。

 你去打印机那里纸张，把默认纸张设置一下，不能太小。

 

http://www.foxtable.com/webhelp/scr/2904.htm

 

 如果还不行，就没办法了，就是不兼容。

 试试这样呢。不行也真没办法。

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim ps As new System.Drawing.Printing.PrinterSettings

'ps.PrinterName = DefaultPrinter

doc.Print(ps)     '打印

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim ps As new System.Drawing.Printing.PrinterSettings

'ps.PrinterName = DefaultPrinter

ps.DefaultPageSettings.Landscape = True

doc.Print(ps)     '打印

 代码，没问题。要不你去纸张那里设置横向打印。