打印非标准页面的几个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我需要打印一种连续纸的非标准标签，内容实际尺寸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()

forms("打印").close

我的问题是：当我在NCB1设置大于1页的数值的时候，只有第一张有打印，后面的都是输出空行，预览也是这样？要怎么处理？

主题：打印非标准页面的几个问题