Delphi 设置打印纸大小.rar
Delphi 设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码：
procedure TForm1.SetPaperSize(cx, cy: Integer);
var
a,b,c: array[0..255]of char;
bb: Cardinal;
ee: PDEVMODE;
begin
printer.PrinterIndex := printer.PrinterIndex;
printer.GetPrinter(a,b,c,bb);
ee:= GlobalLock(bb);
ee^.dmPaperSize := DMPAPER_USER;
ee^.dmPaperLength := cy*10;
ee^.dmPaperWidth := cx*10;
ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
ee^.dmFields := ee^.dmFields or DMBIN_MANUAL;
ee^.dmDefaultSource :=DMBIN_MANUAL;
GlobalUnlock(bb);
printer.PrinterIndex := printer.PrinterIndex;
end;
procedure TForm1.SetPaperSize(cx, cy: Integer);
var
a,b,c: array[0..255]of char;
bb: Cardinal;
ee: PDEVMODE;
begin
printer.PrinterIndex := printer.PrinterIndex;
printer.GetPrinter(a,b,c,bb);
ee:= GlobalLock(bb);
ee^.dmPaperSize := DMPAPER_USER;
ee^.dmPaperLength := cy*10;
ee^.dmPaperWidth := cx*10;
ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
ee^.dmFields := ee^.dmFields or DMBIN_MANUAL;
ee^.dmDefaultSource :=DMBIN_MANUAL;
GlobalUnlock(bb);
printer.PrinterIndex := printer.PrinterIndex;
end;
文件下载
资源详情
[{"title":"（ 11 个子文件 59KB ） Delphi 设置打印纸大小.rar","children":[{"title":"srcfans.com","children":[{"title":"设置打印纸大小","children":[{"title":"Unit1.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"Project1.map <span style='color:#111;'> 310.59KB </span>","children":null,"spread":false},{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 5.04KB </span>","children":null,"spread":false},{"title":"Project1.dsk <span style='color:#111;'> 8.53KB </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 6.69KB </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 391B </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.drc <span style='color:#111;'> 21.55KB </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 2.50KB </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 1.39KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}],"spread":true}]
评论信息
其他资源
- 年终讲_信创网络安全发展展望.pdf
- H5转盘抽奖源代码
- USB转串口驱动，FT232R驱动程序，最新版本，支持WIN7！
- LDA数学八卦-带书签
- 雅克比迭代+高斯迭代+SOR迭代法Matlab程序
- 马哥课程专用素材rhci-5.8-1.iso
- 人脸识别（含原理、论文和源代码）
- 安卓手机MAC地址修改工具+教程
- C# Halcon 测量圆半径 工控DEMO程序 含界面
- SSM个人博客项目实战(SSM+EasyUI)
- testgit：尝试第一次上班-源码
- Arduino开发板原理图PCB
- WS 364-2011卫生信息数据元值域代码 第5部分：健康危险因素.pdf
- EMLOG-鱼叔首款自适应瀑布流板子T2
- jquery-validation插件
- 数据挖掘介绍及数据挖掘项目案例举例
- Charles Elkan的快速k-means算法的代码
- jre-1_5_0_07-windows-i586-p.exe
- h5动态效果邀请函
- X-Scan-v3.3-cn
- des64位拓展成128位
- 闹钟java源码
- 禅道9.8开源版（带32位、64位windows一键安装包）.rar
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明