Crear Archivo Txt

[Laforge]

...lo mejor es que una vez creado el txt lo vuelvas a abir y lo mandes a la impresora. El tiempo de proceso para hacer el Open para leer el archivo es mínimo (teniendo en cuenta que estamos hablando de archivos de texto y que son, relativamente cortos) y te ahorras un montón de problemas en posible bucleados. De todas formas, a no ser que pierdas los datos contenidos en el textbox, lo que puedes hacer es limitarte a imprimir lo que contiene el textbox.


Solución 1: (habiendo creado el archivo lo reabres y lo imprimes)

Dim lineaN
Open "C:loquesea.txt" for Input as #9
Do While Not EOF(9)
Input #9, lineaN
Printer.Print lineaN
Loop
Close #9
Printer.EndDoc

Solución 2: (imprimir contenido de Textbox)
en el fondo dependerá si lo tienes con multiLine = True, aunque, en ese caso te recomiendo utilizar un RichTextBox en vez de TextBox porque a la hora de separar las líneas es mucho más sencillo -> usas Split con vbCr o vbLf y imprimes cada uno de los valores de la matriz.

Dim MatrizDeLineas, i
MatrizDeLineas = Split(RichTextBox.Text, vbCr, -1, vbTextCompare)
for i=0 to UBound(MatrizDeLineas)
Printer.Print MatrizDeLineas(i)
Next i