[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.

Código Delphi [-]
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;