Imprimir

Hola, necesito saber como puedo imprimir con el objeto printer, una caja de texto y que salga colocado en la hoja donde yo quiera.
He utilizado esta instrucción:
Printer.FontSize = 12
Printer.CurrentY = 2500
Printer.Print Text1.Text
Printer.EndDoc
Pero solo me coloca la primera linea que tenga en la caja de texto.
Gracias por adelantado.
2

2 respuestas

Respuesta
1
Para imprimir todas las lineas de un textbox primero tienes que separar cada linea dentro de una matriz, luego imprimir cada linea por separado, te doy un ejemplo con tus datos:
Dim CantLineas As Single
Dim Lineas(1000) As String
CantLineas = 1
For asd = 1 To Len(Text1.Text)
If Mid(Text1.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(Text1.Text, asd, 1)
End If
Next
Printer.FontSize=12
For asd = 1 To CantLineas
Printer.CurrentY = 2500
Printer.Print Lineas(asd)
Next
Printer. EndDoc
Fíjate que cada linea que tenga el textbox, quedara separada en la matriz Lineas(1000), le puse 1000 lineas, no creo que tengas más, vos cambialo por el numero máximo que creas que puede haber de lineas en algún momento.
Luego imprimís todas las lineas por searado, de esa forma podes poner todas las lineas en la posición que quieras de objeto Printer.
Cualquier duda estoy a tu disposición.
Respuesta
-1
Tienes que revisar bien la ayuda del objeto printer, tiene una propiedad que se llama line y con ella puedes hacer lo que quieres.
Y si no también puedes checar las siguientes páginas:
http://www.jrubi.com
http://www.lawebdelprogramador.com

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas