[vb_net]

هدا مثال وجدته لك

PHP كود :

Dim printDlg As New PrintDialog()

        Dim printDoc As New PrintDocument()

        printDoc.DocumentName = "Print Document"

        printDlg.Document = printDoc

        printDlg.AllowSelection = True

        printDlg.AllowSomePages = True

        If (printDlg.ShowDialog() = DialogResult.OK) Then

            printDoc.Print()

        End If