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}]
评论信息
其他资源
- MFC下CAsyncSocket无连接通信（UDP）
- 51单片机设计全自动洗衣机论文
- 欧盟通用数据保护条例中文版丁晓东译文
- android毕设翻译（中英文都有）
- android VideoView播放视频
- boost simulink 仿真
- 安卓基于netty4.x心跳，断线重连，状态监听，数据发送
- 方正商祺系列bios升级包
- 01 搭建一个完整的K8S集群部署文档以及相关讲解.docx
- 视频上传与截图
- 基于android的快递查询项目源码
- python-3.9.1-amd64.zip
- 谭浩强 C程序设计第三章课后答案
- erlang简单聊天练习
- picoC-master.rar
- 适配iOS14下pop多层控制器至首页时，tabbar不显示问题
- 《大学物理学》（赵近芳 主编）第二版 课后习题答案（上.下册).rar
- Labview 制作的可以灵活弹出的控件
- CMPP2模拟网关（可模拟submitresp返回值）
- 基于springboot实现的文件下载上传
- MyEclipse-2018最新版12.0破解文件 MAC 和windows
- 32位win7系统安装sql server2005的详细教程
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明