1、打印机服务器属性，添加纸张，注意宽是93，长是241
此主题相关图片如下：1.jpg
2、右键打印机菜单选择打印首选项
此主题相关图片如下：2.jpg
3.纸张选择刚才创建的纸张格式，方向选横向
此主题相关图片如下：3.jpg
4、打印预览代码改为：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PageSetting.Width = 93
Doc.PageSetting.Height= 241
Doc.PageSetting.LeftMargin = 0
'Doc.PageSetting.RightMargin= 10
doc.PageSetting.Landscape = True
doc.Preview()
5、直接打印代码：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PageSetting.Width = 93
Doc.PageSetting.Height= 241
Doc.PageSetting.LeftMargin = 0
'Doc.PageSetting.RightMargin= 10
doc.PageSetting.Landscape = True
doc.print
由于么有真实打印机，以上方式在xps和pdf等多种虚拟打印机测试可以。
加好友 
发短信
Post By：2016/12/7 18:03:00 [显示全部帖子]
