老师您好! 打印的时候总是有一个问题,感觉不太方便,
就是在打印单据的时候需要手动设置定义纸张(图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