Список форматов бумаги для принтера

Written on 31 Октября 2007. Posted in [Delphi] Система. Принтеры

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

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;