อยากได้โค๊ดการ Print แบบ Auto คือ เมื่อ กด ปุ่ม save ให้ทำการ print แบบอัตโนมัติ จาก Report

Protected Sub Button_Save_Click(ByVal sender As Object, ByVal e As  System.EventArgs)  _
   Handles Button_Save.Click

   Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument

   report.Load( "C:\REPORT\SIMPLE.RPT")

   ' Auto print to default printer
   report.PrintToPrinter(1, False, 0, 0)

End Sub