[Osama_Ghareeb]

وعليكم السلام ورحمة الله وبركاته

كود :

Dim Print As New Printing.PrintDocument
        AddHandler Print.PrintPage, Sub(obj As Object, ev As Printing.PrintPageEventArgs)
                                        ev.Graphics.DrawImage([color=#ff0000]PictureBox1[/color].Image, 0, 0)
                                    End Sub
        [COLOR=#0000cd]For Each Printer In Printing.PrinterSettings.InstalledPrinters
            If MsgBox(Printer, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                Print.PrinterSettings.PrinterName = Printer
                Exit For
            End If
        Next
[/COLOR]        Print.Print()

المحدد بالأزرق يظهر للمستخدم أسماء الطابعات وإذا اختار Yes في أي من الطابعات سوف يطبع الصفحة من خلالها وإذا لم يختر شيئ سيتم الطباعة بالطابعة الإفتراضية