Abre y luego Imprime
Primero se lee el archivo, luego se envia:
''''''''''''''''''''''''''''''''''''' LEER FILE '''''''''''''''''''''''''''
N = FreeFile
Open file For Input As #N
While Not EOF(N)
Input #N, X
FileTXT = FileTXT & X
Wend
Close #N
''''''''''''''''''''''''''''''' AHORA IMPRIMIRLO ''''''''''''''''''''''''''''''
Printer. Print FileTXT
Printer.EndDoc
Y Eso era Todo
|