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); YD:=GetDeviceCaps(Printer.Handle,LogPixelSY); with Printer,Printer.Canvas do begin
Title:='Test de Impresión';
BeginDoc;
try
MoveTo(PageWidth,0);LineTo(0,PageHeight);
MoveTo(0,0);LineTo(XD,YD);
finally
EndDoc;
end;
end;
end;