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

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
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати