...get the default printers resolution?

Author: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Category: Printing

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;


 

printed from
www.swissdelphicenter.ch
developers knowledge base