Impresion directa a impresora por defecto

Hola Baldor,

Una manera sencilla es usar un objeto «System.Drawing.Printing.PrintDocument» y su evento «PrintPage»; por ejemplo:

Dim Pd As New Printing.PrintDocument
AddHandler Pd.PrintPage, AddressOf ImprimirPagina
Pd.Print()

Private Sub ImprimirPagina(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
e.Graphics.DrawString("Texto a imprimir directamente a la impresora", _
New Font("Arial", 10), Brushes.Black, _
e.MarginBounds.Left, e.MarginBounds.Top)
e.HasMorePages = False
End Sub

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org