Imprimir archivo secuencial
Hola
Les escribo para preguntarles si conocen algún método para poder imprimir un archivo secuencial he tratado de utilizar lo siguiente:
Open "Archivo" for input as #1
Open "Lpt1" for output as #2
while not eof(1)
input #1,registro
print #2,registro
wend
close
Pero me dice que no conoce Lpt1, creo que lo está tomando como otro archivo secuencial de salida y no encuentro la forma de resolverlo.
¿Me poden ayudar?
Mis casillas son [email protected] y [email protected]
Carlos Cimino desde Lobos, Pcia. De Bs.As.
Muchas gracias.
Les escribo para preguntarles si conocen algún método para poder imprimir un archivo secuencial he tratado de utilizar lo siguiente:
Open "Archivo" for input as #1
Open "Lpt1" for output as #2
while not eof(1)
input #1,registro
print #2,registro
wend
close
Pero me dice que no conoce Lpt1, creo que lo está tomando como otro archivo secuencial de salida y no encuentro la forma de resolverlo.
¿Me poden ayudar?
Mis casillas son [email protected] y [email protected]
Carlos Cimino desde Lobos, Pcia. De Bs.As.
Muchas gracias.
Respuesta de orande
1
Prueba esto:
Dim miFile As Integer
miFile = FreeFile
Open "Archivo" for input as #miFile
while not eof(miFile)
input #miFile,registro
Printer. Print registro
Wend
close #miFile
Printer. EndDoc
El objeto Printer esta incluido en todos los proyectos de vb, no hace falta que pongas ninguna referencia o componente.
Dim miFile As Integer
miFile = FreeFile
Open "Archivo" for input as #miFile
while not eof(miFile)
input #miFile,registro
Printer. Print registro
Wend
close #miFile
Printer. EndDoc
El objeto Printer esta incluido en todos los proyectos de vb, no hace falta que pongas ninguna referencia o componente.
