CSDN博客

img sendnet

用程序设置打印纸张类型

发表于2000/11/23 21:38:00  550人阅读

var
   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.GetPrinter(Device,Driver,Port,hDMode);
     if hDMode<>0 then
     begin
          pDMode:=GlobalLock(hDMode);
          if pDMode<>nil then
          begin
               pDMode^.dmPaperSize:=DMPAPER_A5;
               pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
               GlobalUnLock(hDMode);
          end;
     end;
end;
0 0

相关博文

我的热门文章

img
取 消
img