Delphi - база знаний


Как получить разрешение принтера по умолчанию?


Как получить разрешение принтера по умолчанию?





uses 
  Printers; 

function GetPixelsPerInchX: Integer; 
begin 
  Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX) 
end

function GetPixelsPerInchY: Integer; 
begin 
  Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY) 
end


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Caption := Format('x: %d y: %d DPI (dots per inch)', 
                   [GetPixelsPerInchX, GetPixelsPerInchY]); 
end

Взято с сайта




Начало  Назад  Вперед



Книжный магазин