以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印非标准页面的几个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160233)
--  作者：hitzfeld
--  发布时间：2021/1/25 17:27:00
--  打印非标准页面的几个问题
我需要打印一种连续纸的非标准标签，内容实际尺寸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页的数值的时候，只有第一张有打印，后面的都是输出空行，预览也是这样？要怎么处理？
--  作者：有点蓝
--  发布时间：2021/1/25 17:37:00
--  
参考：http://www.foxtable.com/webhelp/topics/2904.htm