Pregunta: | 3006 - IMPRIMIR ARCHIVO DE TEXTO |
Autor: | Ruben Sanchez |
Mi programa crea un archivo de texto, pero quiero imprimirlo y no soy capaz. Si alguien me dijera alguna funcion (que segura que hay alguna muy sencilla de usar), por favor que me explique bien como se usa ya que yo he intentado usar shellexecute, el objeto Tprinter, pero sin nada de exito de ninguna manera. Gracias |
Respuesta: | José Oronas |
Cuando creas el archivo de texto, en lugar de enviarlo a un archivo de disco lo envias al archivo asociado a una impresora, LPT1,LPT2.. Var FText : TextFile ; Begin AssignFile(Ftext,'lpt1') ; Rewrite(Ftext); Write(FText,'Esto va a LPT1') ; CloseFile(FText) ; End ; |