[الطالب]

سلام

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using prntr As New PrintDialog
        If prntr.ShowDialog = vbOK Then
            PrintForm1.PrinterSettings = prntr.PrinterSettings
            PrintForm1.Print()
        End If
    End Using
End Sub

موفقين