DataReport小问题

[classicism]

用DataReport时有没有方法可以不用预览而直接打印
打印后DataReport自动关闭。

[hfsyly]

不用写dataReport.show ，直接写datareport.print

[zhhrlzm]

Dim dr1 As New DataReport1

dr1.PrintReport False, rptRangeAllPages
DoEvents

Set dr1 = Nothing