以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102189)
--  作者：hailingonly
--  发布时间：2017/6/14 18:46:00
--  打印设置
e.Form.Controls("Label1").Text = "[PageNo]"
e.Form.Controls("Label2").Text = "[PageCount]"
e.Form.Page.Landscape = True \'横向打印
e.Form.Page.Width = 215.9 \'纸张宽度为100毫米
e.Form.Page.Height = 93.1 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 \'设置左边距
e.Form.Page.RightMargin = 0 \'设置右边距
e.Form.Page.TopMargin = 7 \'设置上边距
e.Form.Page.BottomMargin = 0 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

请问241-3的纸张类型该设置成哪一个，这样打出来貌似一直是A4纸的
--  作者：有点色
--  发布时间：2017/6/14 21:14:00
--  

 你直接用doc.print，看行不行。

 

 预览的话，参考这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102144&skin=0