怎样得到打印机当前纸装名称(如A4)?

[我不要昵称]

怎样得到打印机当前纸装名称(如A4)?

[lwk_hlj]

Device: Array[0..(cchDeviceName -1)] of char;

Driver: Array[0..(MAX_PATH -1)] of char;

Port: Array[0..32] of char;

HDMode : THandle;

PDMode: PDevMode;

begin

Printer.PrinterIndex := Printer.PrinterIndex ;

Printer.GetPrinter(Device,Driver,Port,HDMode);

if HDMode <> 0 then

begin

PDMode := GlobalLock(HDMode);

if PDMode <> nil then

begin

case pDMode.dmPaperSize of

DMPAPER_USER: showmessage('纸张类型：自定义');

DMPAPER_A3: showmessage('纸张类型：A3');

DMPAPER_A4: showmessage('纸张类型：A4');

DMPAPER_A5: showmessage('纸张类型：A5');

DMPAPER_B4: showmessage('纸张类型：B4');

DMPAPER_B5: showmessage('纸张类型：B5');

else showmessage('纸张类型：其它');

end;

GlobalUnLock(HDMode);

Printer.PrinterIndex := Printer.PrinterIndex;

end;

end;

end;

　

[我不要昵称]

to: lwk_hlj(阿凯(CSDN第一铁公鸡横空出世))
我自己定义了一种纸装，我怎么得到自己定义的纸装具体名称？因为在每台计算机上定义纸装时取的名称不一样。你的方法只是笼统的得到纸装是其它。请继续关注

[BigAngell]

学习

[julong88]

mark

[GoldShield]

阅

[我不要昵称]

up

[lwk_hlj]

DMPAPER_USER: showmessage('纸张类型：自定义');