登录
首页 » 其他 » Delphi 设置打印纸大小

Delphi 设置打印纸大小

于 2023-01-17 发布 文件大小:58.52 kB
0 176
下载积分: 2 下载次数: 1

代码说明:

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;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 智睿学校评课系统 v6.2
    智睿学校评课系统可方便教师在线发布评课及教案评课交流,以互动形式对本学期所学课程和任课教师进行评论。以使教学管理部门及时了解教学状况,更好地改进工作。针对所有教师参与评课评教,并可以看到其他教师的评课内容,教务处批阅教师教案。智睿学校评课系统后台管理:   /admin/admin_login.asp 帐号:admin 管理密码:123456 认证码:zhirui   智睿学校网上评课系统 20160506更新:   1、教学评教模块优化   2、点评评论模块优化
    2023-07-18 21:25:03下载
    积分:1
  • 使用matlab仿真QPSK,包括调制、解调,有详细的源代码,仅供参考...
    使用matlab仿真QPSK,包括调制、解调,有详细的源代码,仅供参考-QPSKsimulation
    2022-03-09 17:00:22下载
    积分:1
  • Internet five times anniversary celebrations, as low as 6.2% Shopxp Mall Shoppin...
    时代互联5周年庆典,低至6.2折 Shopxp 商城购物系统 北京联通 上海电信 辽宁联通 江苏电信 河南网通 北方电信 a站长强烈推荐使用迅雷5高速下载! a全球最大的驱动下载基地! a强烈推荐使用IS下载 a域名45元,虚机100M 50元,诚征代理 注意:推荐使用网际快车或迅雷飞速下载!若不能下载,请报告错误,谢谢!下载解压缩软件: WinRAR 韩国服务器出租 软件简介: 主要功能: 1、各栏目自由添加,排序 2、文章在线添加、编辑、删除。 3、网站相关信息后台动态配置 4、自由添加友情链接 5、添加广告,支持HTML编码 6、支持UBB 7、软件下载 -Internet five times anniversary celebrations, as low as 6.2% Shopxp Mall Shopping System Beijing Unicom Shanghai Telecom Unicom Liaoning, Henan, Jiangsu Telecom Netcom head of a Northern Telecom strongly recommend the use of high-speed downloads Thunderbolt 5! A driver of the world"s largest base for download! A strongly recommend the use of IS Download a domain name 45 yuan, virtual machine 100M 50 yuan, The issue of attention : recommended deletion or Thunderbolt rapid download! if it can not be downloaded, please report errors, thank you! extract the downloaded software : WinRAR Korea server software rental briefing : main function
    2022-03-30 19:11:23下载
    积分:1
  • web程序设计实验报告,使用手写代码html、javascript、css ,内含许多精彩特效如msagent、cookie等功能...
    web程序设计实验报告,使用手写代码html、javascript、css ,内含许多精彩特效如msagent、cookie等功能 ---zhg工作室 2007.6-web design experimental procedure, the use of hand-written code html, javascript, css, containing many wonderful effects such as msagent. cookie and other functions--- zhg studios 2007.6
    2022-01-22 07:27:02下载
    积分:1
  • 是一篇关于时频分析的外国论文,内容比较多,是硕士论文,比较难找的,里面有不少方法...
    是一篇关于时频分析的外国论文,内容比较多,是硕士论文,比较难找的,里面有不少方法-Are about a time-frequency analysis of the foreign papers, more content is the Master" s thesis, more difficult to find, and there are many methods
    2022-01-26 06:22:16下载
    积分:1
  • 二进制搜索tree.vcproj
    binary search tree.vcproj -binary search tree.vcprojbinary search tree.vcproj
    2023-03-20 20:55:02下载
    积分:1
  • Labview characters to an array of procedures, engage in a long time to get and
    Labview的字符转数组的程序,搞了好久才搞定的,-Labview characters to an array of procedures, engage in a long time to get and
    2022-02-27 05:06:33下载
    积分:1
  • C section of the relevant network
    有关C的一段网络相关实例,对Ad hoc的AODV路由协议在OPNET下进行程序仿真-C section of the relevant network-related examples of AODV for Ad hoc routing protocols under the procedures in the OPNET simulation
    2022-06-13 03:21:51下载
    积分:1
  • 霍夫曼编码的C语言实现
    霍夫曼编码的C语言实现-Huffman coding in C language Albion
    2023-03-31 07:40:03下载
    积分:1
  • jQuery结合LightBox实现图片滚动+图片盒子
    jQuery结合LightBox实现的图片展示+图片盒子,图片滚动过程中,可通过控制按钮控制滚动方向,单击小图片后,在当前页无刷新显示出放大图片,结合LightBox可实现 渐变动画效果的图片放大效果,代码中引入了jquery,且代码中运用有HTML5/CSS3技术,历此测试请在火狐或Chrome下进行。
    2022-01-21 05:45:03下载
    积分:1
  • 696516资源总数
  • 106562会员总数
  • 4今日下载