回复 1楼wdtlcv的帖子
你好,非常感谢你的问题反馈,请尝试如下代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As New ActiveReport1()
rpt.Document.Printer.PrinterName = "名称"
rpt.Run(False)
rpt.Document.Print(True, True, False)
End Sub
如果不能解决你的问题,欢迎你继续反馈。 |