Impresion archivo de texto

Duda
27 de Enero del 2005
Hola amigos, me pueden ayudar indicandome, como puedo imprimir un archivo de texto (para la printer)

javi_pe
27 de Enero del 2005
Lo abres, lo guardas en una variable y luego imprimes la variable. Es la forma mas facil de hacerlo aunque hay mas, pero mas complicadas

mvallejos
27 de Enero del 2005
La manera es abrirlo, leerlo linea a linea o de una sola vez con la función Input.
Fijate este ejemplo

Sub ImprimirArchivo(Archivo as string)
Dim Nro as Integer
Dim Linea as String
Nro=FreeFile
Open Archivo For Input as #nro
Do While Not EOF(nro)
Line Input #Nro, Linea
Printer.Print Linea
Loop
Close Nro
End Sub

Donde Archivo es la ruta completa del archivo que deseas imprimir.

Opcionalmente, puedes establecer márgenes para tus líneas de impresión.

Printer.CurrentX = 57 * 30
Printer.Print Linea

57 tipws en impresora, equivale e 1mm, de modo que con esa modificación, estoy imprimiento con 3 cm de margen derecho.
Algo parecido puedes hacer con el margen superior, antes de empezar a imprimir en el bucle puedes poner

Printer.CurrentY = 57 * 25

Con lo cual tu punto inicial de impresión es de 2 cm y medio. Después, con cada print, la posición vertical cambia sola.

Saludos