主题：[求助]批量打印时，打印一页就要走纸

e.Form.Page.Width = Kuan1 '纸张宽度
e.Form.Page.Height = Gao1 '纸张高度

e.Form.Page.LeftMargin = 0 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 0 '设置上边距
e.Form.Page.BottomMargin = 0 '设置下边距

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Landscape = True '横向打印
For i As Integer = 0 To Tables("Sheet1").Rows.Count - 1
    Tables("Sheet1").Position = i
    'Doc.Preview()
    Doc.Print()
Next

这段代码没有什么问题，就是打印的时候，打印一页就走纸，

而我需要的效果是连续用针式打印机打印，问题在哪里

请高手指正！