用程序设置打印纸张类型

页面导航:首页 > 软件编程 > Delphi > 用程序设置打印纸张类型

用程序设置打印纸张类型

来源: 作者: 时间:2016-02-05 11:47 【

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
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;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <