Private Sub cmdPrint_Click()
Printer.ScaleMode = objReport.ScaleMode
Dim i As Integer
For i = 1 To PaperNumberMax
objReport.Pain Printer, i
Printer.NewPage
Next
Printer.EndDoc
End Sub我使用代码实现打印数据报表,如何使打印默认为A4纸,是不是有什么专门的属性!
Printer.ScaleMode = objReport.ScaleMode
Dim i As Integer
For i = 1 To PaperNumberMax
objReport.Pain Printer, i
Printer.NewPage
Next
Printer.EndDoc
End Sub我使用代码实现打印数据报表,如何使打印默认为A4纸,是不是有什么专门的属性!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货