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

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

解决方案 »

  1.   

    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;beginPrinter.PrinterIndex := Printer.PrinterIndex ;Printer.GetPrinter(Device,Driver,Port,HDMode);if HDMode <> 0 thenbeginPDMode := GlobalLock(HDMode);if PDMode <> nil thenbegincase pDMode.dmPaperSize ofDMPAPER_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;　
      

  2.   

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

  3.   

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