Adaptar la salida de la impresora a impresoras diferentes

[dec]

Cómo adaptar la salida de la impresora a impresoras diferentes

Es necesario hacer uso de la función del API GetDeviceCaps y de la unit Printers.


procedure TForm1.Button1Click(Sender: TObject);
var
XD,YD:Integer;
begin
XD:=GetDeviceCaps(Printer.Handle,LogPixelSX); // pixels/inch horizontales
YD:=GetDeviceCaps(Printer.Handle,LogPixelSY); // pixels/inch verticales
with Printer,Printer.Canvas do begin
Title:='Test de Impresión';
BeginDoc;
try
// Una línea diagonal atraves del papel
MoveTo(PageWidth,0);LineTo(0,PageHeight);
MoveTo(0,0);LineTo(XD,YD);
finally
EndDoc;
end;
end;
end;