01.
Protected
Sub
Button_Save_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs) _
02.
Handles
Button_Save.Click
03.
04.
Dim
report
As
New
CrystalDecisions.CrystalReports.Engine.ReportDocument
05.
06.
report.Load(
"C:\REPORT\SIMPLE.RPT"
)
07.
08.
09.
report.PrintToPrinter(1,
False
, 0, 0)
10.
11.
End
Sub