Foros Club Delphi - Ayunda con impresión directa

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

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

- - Ayunda con impresión directa (https://www.clubdelphi.com/foros/showthread.php?t=34872)

Ayunda con impresión directa

Hola,

Me gustaría que me indicárais dónde podría conseguir un artículo que estaba publicado en la "antigüa" página web del club (la que estaba operativa antes de esta renovación forzada por la caida del servidor, según nos han informdo) y que hablada de la impresión directa en la impresora sin pasar por ninguna herramienta de diseño de informes.

Espero que me podáis ayudar, un saludo y gracias.

a ver si te vale este codigo que uso yo

Código Delphi [-]procedure TFormGesCli.BtnImprimirClick(Sender: TObject);
var
Fichero:TextFile;
begin
printer.Canvas.font.Size:=10;
AssignPrn(Fichero);
Rewrite(Fichero);
Writeln(Fichero,'');
Writeln(Fichero,'');
write(Fichero,'CLAVE:      ');
Writeln(Fichero,Txtamigo.text);
write(Fichero,'CODIGO:     ');
writeln(Fichero,txtcliente.text);
Write(Fichero,'NOMBRE:     ');
Writeln(Fichero,TxtNombre.text);
Write(Fichero,'DNI o CIF:  ');
writeln(Fichero,txtdni.text);
write(Fichero,'COMERCIAL:  ');
Writeln(Fichero,Txtcomercial.text);
Write(Fichero,'CONTACTO:   ');
Writeln(Fichero,txtcontacto.text);
Write(Fichero,'DIRECCION:  ');
Writeln(Fichero,txtdirecc.text);
Write(Fichero,'C.P:        ');
Writeln(Fichero,txtcp.text);
CloseFile(Fichero);
end;

tienes que añadir la libreria Printers