Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

259 - Imprimir TextBox Multilínea

Ejemplo simple que imprime línea a línea el contenido de un control textbox

Para separar los datos ( las líneas del textbox ) se utiliza la función Split y luego se recorre en un For-Next para ir imprimiendo

Controles

Colocar un control CommandButton
y un textbox

Al procedimiento Imprimir Text_Box , indicar el control que se va a imprimir, y también el margen izquierdo y el margen superior en los demás parámetros de la función

Código fuente en el formulario :

Private Sub Imprimir_TextBox( _ El_textbox As TextBox, _ Margen_Left As Long, _ Margen_Top As Long) Dim Lineas() As String 'Obtiene las lineas que se van a imprimir Lineas = Split(El_textbox, vbNewLine) If El_textbox = vbNullString Then Exit Sub 'Margen izquierdo y el Top With Printer .ScaleLeft = Margen_Left .ScaleTop = Margen_Top .Print vbNullString End With 'Imprime la linea actual For i = 0 To UBound(Lineas) Printer.Print Lineas(i) Next ' Manda a la impresora Printer.EndDoc End Sub Private Sub Command1_Click() 'Indicar el textbox que se va a imprimir, y los márgenes Call Imprimir_TextBox(Text1, 10, 10) End Sub Private Sub Form_Load() Command1.Caption = " Imprimir TextBox " End Sub

Función para impresión de textbox

Módulo enviado por Juan Paz que contiene una función para imprimir un textox, incluyendo el formato de fuente ( color, tamaño, tipo, estilo ) y también se puede indicar los márgenes

Descargar módulo bas

Recursos visual basic 6.0 - Enlaces relacionados

Enlaces con ejempos para imprimir en visual basic

Recursos vb.net - Enlaces relacionados

Imprimir un Windows form en vb.net 2005

Buscar en Recursos vb