Ho trovato questo, come vi sembra ???
Ma se io voglio stampare un "DataSet" di dati ???
codice:
Private Sub PrintText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawString(read("Nome"), New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 50, 100)
ev.Graphics.DrawString(read("Cognome"), New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 150, 100)
ev.HasMorePages = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PrintDoc As New PrintDocument()
AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintText
PrintDoc.Print()
End Sub