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

Советы » Принтеры и Печать » Форматы бумаги

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

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com