我需要打印一种连续纸的非标准标签，内容实际尺寸90X140毫米，用连续纸的尺寸是120X140(因为连续纸还要加上两边的进纸孔）。然后我用了下面的代码：Dim x As Integer =e.Form.Controls("NCB1").VALUE
forms("打印").show
forms("打印").Page.LeftMargin = 5
forms("打印").Page.TopMargin = 5
Dim doc As PrintDoc = Forms("打印").GernatePrintDoc()
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 5 '
doc.PageSetting.Width = 120 '纸张宽度为100毫米
doc.PageSetting.Height = 140
For i As Integer = 1 To X
doc.Preview()
Next
forms("打印").close
我的问题是：当我在NCB1设置大于1页的数值的时候，只有第一张有打印，后面的都是输出空行，预览也是这样？要怎么处理？
加好友 
发短信
Post By：2021/1/25 17:27:00 [显示全部帖子]
