完整代码在附件里面。
注:bin、packages下的DLL个数多、压缩了还比较大,所以直接删除了。直接运行可能运行不起来。
核心的代码:WebFormWebViewer.aspx.vb
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim rpt As New SectionReport1
- rpt.Run()
- Me.WebViewer1.Visible = False
- rpt.Document.Printer.PrinterSettings.Copies = 2
- GrapeCity.ActiveReports.PrintExtension.Print(rpt.Document, False)
- End Sub
复制代码 注:SectionReport1是工程里面创建的一个SectionReport账票
|