VB.NET ขอทราบข้อมูลวิธีการทำ ตัว สั่งพิมพ์ Print หน่อยคับ แล้วโค๊ดเขียนยังไงหรอคับ แล้วเอาลง event ไหน หรอคับ ขอบคุนคับ

Dim p As New PrintDialog
Dim cry As New cr  '//อันนี้เป็น Crystal Report ที่ทำไวครับ
cry.SetParameterValue("test", TextBox1.Text) 
cry.SetParameterValue("test2", TextBox2.Text)
p.PrinterSettings.PrinterName = "Printer Name"  '//อันนี้ชื่อ เครื่องปริ้นครับ
p.AllowCurrentPage = True
cry.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
cry.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto
cry.PrintOptions.PrinterName = p.PrinterSettings.PrinterName
cry.PrintToPrinter(p.PrinterSettings.Copies,p.PrinterSettings.Collate,p.PrinterSettings.FromPage, p.PrinterSettings.ToPage)