yazıcının çözünürlüğünü nasıl değiştirebilirim?

[cfyasar]

yazıcının çözünürlüğünü getdevicecaps(printer.handle,logpixelx) ile görenebiliyorum. ama istediğim çözünürlüğü (tabi ki yazıcının desteklediği) yazıcıya nasıl atayacağım?

[DotCom]

Kod: Tümünü seç

Procedure TForm1.GetPrinterInfo; { Получить информацию о принтере }
begin

  PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);

  PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
end;

Function TForm1.PrinterCoordX(x:integer):integer; { переводит координаты из мм в пиксели }

begin

 PrinterCoordX:=round(PixelsX/25.4*x);

end;

Function TForm1.PrinterCoordY(Y:integer):integer; { переводит координаты из мм в пиксели }

begin

 PrinterCoordY:=round(PixelsY/25.4*Y);
end;