Imprimir formulario VS2005 / myslq

[yetrus]

Hasta qeu al final encotre como hacer lo que queira, le puedo definir que campos o una consulta SQL
Lo qeu si ya no tengo el Link de ese post de otro foro

=)


Imports System.Drawing.Printing

Public Class Form1


Dim Contenido As PrintPageEventArgs '<< representa las propiedades de el documento a imprimir, a el asignaremos el texto a imprimir
Dim WithEvents Documento As New PrintDocument '<< será el documento a imprimir
Dim impresora As New PrintDialog ' << representa una instancia del dialogo de configuración de impresión


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' si deseas configurar la impresora antes de imprimir el resultado solo habilita la linea siguiente
'Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
' en la siguiente cadena le asignas el contenido y sus propiedades
' primero le asignamos el texto, segundo el tipo de fuente con su respectivo tamaño, el color, y por ùltimo la ubicación en la página

Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)

Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)

' esta linea indica que no se imprimirán más pagias sino solo una

Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class