Namespace System.Drawing.Printing
Κάνε Drag and Drop ένα PrintDocument στην φόρμα και στο PrintDocument1.PrintPage χρησιμοποίησε την e.Graphics.DrawString.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Blue, 100, 100)
End Sub
Μπλουγουράς Γιάννης
Wizcom O.E.