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

Delphi 设置打印纸大小

于 2023-01-17 发布 文件大小:58.52 kB
0 187
下载积分: 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 个回复

  • sunplus8202L schematics, protel99 format, for reference only
    sunplus8202L原理图,protel99格式的,仅供参考-sunplus8202L schematics, protel99 format, for reference only
    2022-03-25 05:54:59下载
    积分:1
  • JAVA编写的乒乓球游戏 很经典哦 试一试吧
    JAVA编写的乒乓球游戏 很经典哦 试一试吧-JAVA ?嘈
    2022-10-03 00:30:03下载
    积分:1
  • Lyapunov,关联维和Kolmogorov熵在混沌动力系统中的应用chen
    Lyapunov,关联维和Kolmogorov熵在混沌动力系统中的应用chen
    2022-04-16 21:50:23下载
    积分:1
  • 介绍xml开发库函数的使用方法及实例程序
    介绍xml开发库函数的使用方法及实例程序-Xml introduce the development of the use of library functions and sample programs
    2022-07-09 19:55:03下载
    积分:1
  • This is a good book for TCL lovers.
    This is a good book for TCL lovers.
    2022-03-21 09:27:14下载
    积分:1
  • 黑白棋vc++
    一个黑白棋vc++游戏,很实用,界面一般般的,算法还可以,功能齐全
    2023-07-31 00:30:02下载
    积分:1
  • 金蝶10.4数据库表结构,适用于ASP语句
    金蝶10.4数据库表结构,适用于ASP报表-Kingdee 10.4 database table structure, applicable to ASP statements
    2023-01-15 00:45:03下载
    积分:1
  • Garage and the J2EE Application learn from each other what the Framework has rea...
    _NET和J2EE该相互学习什么 Application的Framework竟然达到了55个,并且还在日益增加。事实上J2EE开发的软肋不在于Control这个层面,而是在View。许多天才的精力都耗在重复制造轮子上,却没有想办法去完善一个或者多个Framework,这不得不让人感到痛心啊!在这一点,J2EE是不是得向.NET好好学习一下呢?在.NET的世界里,最受关注的应该是控件的开发了,一个设计良好,功能强大的控件对于提高开发效率无疑是极好的助推器。很多.NET的开发人员都将精力花在设计控件上,.NET就像一个聚宝盆一样,不断汇聚开发人员智慧结晶。在J2EE的世界里,为了减少这种资源浪费的情况,Wicket Framework的出现了。它强调组件设计和组件重用,让开发人员集中精力于组件的开发,从而增强Framework的功能已经易用性。但愿,Wicket -Garage and the J2EE Application learn from each other what the Framework has reached 55 and is still growing. In fact J2EE development weakness lies not in the level of Control, but the View. Many are gifted energy consumption in duplicate on wheels, but did not try to perfect one or more Framework, which compelled people to feel sad ah! At this point, is not a J2EE to.NET can learn from it? In.NET world, the most concern is the development of the controls, a well-designed, powerful controls for the improvement of development efficiency is undoubtedly an excellent booster. A lot.NET developers will b
    2022-02-05 03:05:45下载
    积分:1
  • 一个车遍历n各点,费用最小。用lingo 编写,管理调度问题
    一个车遍历n各点,其费用最小。用lingo 编写,管理调度问题-A vehicle traversing the points n, the cost of the smallest. Lingo with the preparation, management of scheduling problem
    2022-02-05 18:02:10下载
    积分:1
  • VB打印预览和形式的MSFlexGrid
    VB中打印预览Msflexgrid等表格-VB Print preview and other forms Msflexgrid
    2022-03-11 07:56:21下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载