以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]批量打印时，打印一页就要走纸  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24871)
--  作者：hiliuyong
--  发布时间：2012/10/25 11:30:00
--  [求助]批量打印时，打印一页就要走纸

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

 

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

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

请高手指正！

 
--  作者：狐友
--  发布时间：2012/10/25 12:52:00
--  
应该要设置下打印机吧
--  作者：lin_hailun
--  发布时间：2012/10/25 15:43:00
--  
 楼主，这样是弄不了的。尝试用excel报表或者专业报表吧。
--  作者：122147503
--  发布时间：2019/7/10 11:33:00
--  
51651651651111111111111