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