[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته
أولاً ضع السطر التالي في Name Space
Imports CrystalDecisions.CrystalReports.Engine

ثانياً ضع الكود تحت الزر 
ثم غير اسم الطابعة الموجود في السطر ذو اللون الأحمر بدل الطابعة التي قمت أنا بإختيارها لتختاره من خلال Textbox1 

  Dim report As New CrystalReport1
        report.Load(Application.StartupPath & "CrystalReport1.rpt") 
    
" report.PrintOptions.PrinterName = "Microsoft XPS Document Writer 
     
   report.PrintToPrinter(1, False, 0, 0)
        Me.Dispose()
        MessageBox.Show("تمت الطباعة", "تنبية")  

لكم جزيل الشكر 

دمتم بود