Foros Club Delphi - como imprimir un txt

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - como imprimir un txt (https://www.clubdelphi.com/foros/showthread.php?t=55073)

como imprimir un txt

hice un programa que me genera un archivo txt y todo sali a pedir de boca, pero al cliente sele ocurrio que debo imprimirlo, asi que trate de usar el printdialogo pero no se como indicarle cual es el nombre del archivo a imprimir, podrian ayudarme por favor?????
por adelantado muchas gracias.

Suponiendo que el TXT está en un memo, podrías intentar una búsqueda.

Salu2.

Cita:

Empezado por luis vazquez (Mensaje 278063)

asi que trate de usar el printdialogo pero no se como indicarle cual es el nombre del archivo a imprimir

Realmente el PrintDialog no te va a ayudar. Un PrintDialog está sólo para que el usuario escoja ciertas opciones como el número de copias, el rango de páginas a escribir, etc. pero es tu aplicación la que debe saber qué hacer con esas opciones. Como ya te indicaron, haz una búsqueda porque tienes varias opciones que seguramente ya se han comentado antes. Entre ellas se me ocurre usar directamente el objeto Printer de la unidad Printers, aunque es bastante artesanal; también puedes hacer uso de un QuickReport que es capaz de imprimir datos que provengan de una lista de cadenas como son las líneas de un Memo; o incluso puedes transferir los datos de texto a una plantilla de Word e imprimirla.

Bye

Hola Luis,

Pues como dice KeyBoy, el Dialogo de Impresión solo te sierve para configurar algunas propiedades de la impresora... al igual que el SaveDialog, que te permite escoger el nombre del archivo, pero no te hace la tarea de guardar...

EL metodo artesanal del que habla KeyBoy es el siguiente:

Código:

Uses Printers;



***



procedure TForm1.Button1Click(Sender: TObject);

var

  LaImpresora: TextFile;

begin

  AssignPrn(LaImpresora);

  Rewrite(LaImpresora);

  Writeln(LaImpresora, 'Linea a imprimir');

  System.CloseFile(LaImpresora);

end;

Como ves, es el mismo manejo de una archivo de texto plano, pero con la unica variación que se asigna con AssignPRN

Es un metodo facil y rapido, aunque artesanal...

Suerte...