Форматы бумаги

Вот пример, выводящий список форматов бумаги для принтера, установленного по умолчанию:

procedure
 TForm1.Button2Click(Sender: TObject);
type

  TPaperName = array
[0..63] of
 Char;
  TPaperNameArray = array
[1..High(Cardinal) div
 Sizeof(TPaperName)] of

    TPaperName;
  PPapernameArray = ^TPaperNameArray;
var

  Device, Driver, Port: array
[0..255] of
 Char;
  hDevMode: THandle;
  i, numPaperformats: Integer;
  pPaperFormats: PPapernameArray;
begin

  Printer.PrinterIndex := -1;
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  numPaperformats :=
    WinSpool.DeviceCapabilities(Device, Port, DC_PAPERNAMES, nil
, nil
);
  if
 numPaperformats > 0 then

  begin

    GetMem(pPaperformats, numPaperformats * Sizeof(TPapername));
    try

      WinSpool.DeviceCapabilities(Device, Port, DC_PAPERNAMES,
        Pchar(pPaperFormats), nil
);
      memo1.clear;
      for
 i := 1 to
 numPaperformats do

        memo1.lines.add(pPaperformats^[i]);
    finally

      FreeMem(pPaperformats);
    end
;
  end
;
end
;

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

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