Imprimir Textbox en 2 columnas

[PanKrdo]

Hola,

Lo que pretendo hacer es imprimir el contenido de un textbox con la propiedad multiline habilitada en 2 columnas, si alguien me puede ayudar digame como hacerle.

Gracias.

[franko1809]

Acabo de probar imprimir una caja de texto multiline y la impresion se realiza tal y como se muestra en el text1, utlize el objeto printer, pero no se a que te refieres con eso de 2 columnas?

Código:

Private Sub Command1_Click()
Printer.Print Text1
Printer.EndDoc
End Sub

[PanKrdo]

pero no se a que te refieres con eso de 2 columnas?

Ok, Me refiero a que quiero que la impresion salga en 2 columnas, ya que el ancho de mi texto no es mucho y para ahorrar hojas se me ocurrio eso de 2 columnas, ah y que salga centrado en cada columna,

Gracias

[moradazo]

Entonces haslo con un listbox, tiene la propiedad de multicolumns que te separa por columnas el texto escrito en el listbox

[PanKrdo]

Alguien tiene alguna otra sugerencia

[David]

Es un poco complicado lo que pretendes, una idea sería usar el Printer e ir recorriendo todas las líneas del TextBox, si es más largo el texto que la primera columna, cortarlo y continuar en la siguiente linea.

Otra idea sería usar un PictureBox para simular una columna y pintar en ella el texto con DrawText, luego con PaintPicture enviar la imagen del PictureBox a la impresora.