Imprimir linea a linea en Visual Basic .NET

Bueno aquí os dejo una de las muchas formas que podemos imprimir en VB.NET. En este caso no utilizaremos Crystal Report pero si el objeto PrintDocument.

Creamos un formulario e insertamos un objeto de tipo printDocument, al que llamamos HojaImpresion.
Insertarmos tambien un control button al que llamaremos cmdImprimir.

Pulsamos doble_click sobre el control HojaImpresion para irnos directamente procedimiento:

Private Sub HojaImpresion_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles HojaImpresion.PrintPage         Try             ' La fuente a usar             Dim prFont As New Font("Arial", 15, FontStyle.Bold)             ' la posición superior             'imprimimos la fecha y hora             prFont = New Font("Arial", 10, FontStyle.Regular)             e.Graphics.DrawString(Date.Now.ToShortDateString.ToString & " " &  _                                 Date.Now.ToShortTimeString.ToString, prFont, Brushes.Black, 15, 385)             'imprimimos el nombre del cliente             prFont = New Font("Arial", 25, FontStyle.Bold)             e.Graphics.DrawString("Nombre del Cliente", prFont, Brushes.Black, 50, 250)             'imprimimos la referencia del pedido             e.Graphics.DrawString("Referencia", prFont, Brushes.Black, 50, 520)             prFont = New Font("Arial", 18, FontStyle.Bold)             e.Graphics.DrawString("Nombre de la Referencia", prFont, Brushes.Black, 50, 555)             'imprimimos Pedido Ondupack y Pedido del cliente             prFont = New Font("Arial", 22, FontStyle.Regular)             e.Graphics.DrawString("Pedido", prFont, Brushes.Black, 50, 660)             e.Graphics.DrawString("Palets", prFont, Brushes.Black, 250, 660)             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("19875", prFont, Brushes.Black, 50, 700)             e.Graphics.DrawString("44", prFont, Brushes.Black, 250, 700)             'imprimimos Cajas X Palet y Cajas x Paquete             prFont = New Font("Arial", 22, FontStyle.Regular)             e.Graphics.DrawString("Cajas x Palet", prFont, Brushes.Black, 50, 760)             e.Graphics.DrawString("Cajas x Paquete", prFont, Brushes.Black, 250, 760)             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("500", prFont, Brushes.Black, 50, 800)             e.Graphics.DrawString("32", prFont, Brushes.Black, 250, 800)             'imprimimos el numero del Palet             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("Número del Palet     45", prFont, Brushes.Black, 50, 880)             'indicamos que hemos llegado al final de la pagina             e.HasMorePages = False         Catch ex As Exception             MessageBox.Show("ERROR: " & ex.Message, "Administrador", _                               MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try      End Sub

Despues pulsamos doble click sobre el boton cmdImprimir:

Private Sub cmdImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImprimir.Click         HojaImpresion.Print()     End Sub

De esta forma cuando ejecutemos nuestro programa, pulsaremos sobre el boton Imprimir del formulario y nos saldrá como resultado:

el evento e.Graphics tiene varias funciones para escribir distinto tipos. Por ejemplo si queremos imprimir una imagen:

e.Graphics.DrawImage(PictureBox1.Image, 380, 335, 75, 75)

Nota: Posible Error.

Si alguna vez ejecutáis el código y os aparece una excepción con Mensaje "Controlador No Valido" en referencia a la instancia del printDocument, se debe a un problema con la impresora que tengáis asociada como predenterminada en ese momento.
Por si os pasa a vosotros, que he perdido casi 1 hora buscando el problema.
Saludos.