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

我不要昵称 2004-08-25 12:05:12
怎样得到打印机当前纸装名称(如A4)?
...全文
139 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lwk_hlj 2004-08-27
  • 打赏
  • 举报
回复
DMPAPER_USER: showmessage('纸张类型:自定义');
我不要昵称 2004-08-27
  • 打赏
  • 举报
回复
up
GoldShield 2004-08-25
  • 打赏
  • 举报
回复
julong88 2004-08-25
  • 打赏
  • 举报
回复
mark
BigAngell 2004-08-25
  • 打赏
  • 举报
回复
学习
我不要昵称 2004-08-25
  • 打赏
  • 举报
回复
to: lwk_hlj(阿凯(CSDN第一铁公鸡横空出世))
我自己定义了一种纸装,我怎么得到自己定义的纸装具体名称?因为在每台计算机上定义纸装时取的名称不一样。你的方法只是笼统的得到纸装是其它。请继续关注
lwk_hlj 2004-08-25
  • 打赏
  • 举报
回复
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;

 

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧