تحديد طابعة لطباعة تقرير

Dim report As New CrystalReport1
        report.Load(Application.StartupPath & "CrystalReport1.rpt") 'your report file and path
        'if you normally setlogon and paramaters and stuff do that here
        report.PrintOptions.PrinterName = "Microsoft XPS Document Writer" 'your windows printer name
        report.PrintToPrinter(1, False, 0, 0)
        Me.Dispose()
        MessageBox.Show("تمت الطباعة", "تنبية")