老师您好！ 打印的时候总是有一个问题，感觉不太方便，
就是在打印单据的时候需要手动设置定义纸张（图1），如果设置不正确那么打印出来效果就像图二那样横着出，调整以下代码也没效果！
如果打印机还需要打印其它纸张A4的文档的话，又需要手动调节（图1）的纸张规格，用完以后还需要手动调回来，比较麻烦，有没有好的解决方法？
Dim doc As New PrintDoc '定义一个新报表
'doc.PageSetting.PaperKind = 11 '纸张类型改为B5
'doc.PageSetting.Landscape = True
doc.PageSetting.Width = 210 '纸张宽度为毫米
doc.PageSetting.Height = 140 '纸张高度为毫米
Doc.PageSetting.LeftMargin = 10'设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 10 '设置上边距
Doc.PageSetting.BottomMargin = 10 '设置下边距
Doc.AutoRotate = False
加好友 
发短信
Post By：2020/9/16 16:12:00 [显示全部帖子]
此主题相关图片如下：微信图片_20200917181750.jpg
