Ayunda con impresión directa

[jcheco]

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.

[[ElDioni]]

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;

[[ElDioni]]

tienes que añadir la libreria Printers