说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

报表制作技巧(三)-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
报表制作技巧(三)-Delphi资料

任意打印

有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时,可以新建一个窗体(假设为Form1),再把Form1的BorderStyle设为bsNone、AutoScroll设为True,接下来再创建一个新窗体(假设为Form2),再建个按钮Button1,编写代码:

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Width :=900;

Form1.Height :=800;

Form1.Print;

end;

接下来你在Form1上对应的位置写上数据,运行后按Button1就会一五一十的打印下来了。

打印机的分辨率问题?

Printer Resolution ?

问:

I want to know

wich way I have to program

so every print is equal. No

matter what resolution

of the printer (300 or 600 dpi).

Since now I program: TextOut(DC

150

150...) on a 300 dpi printer. But on

600 dpi

everything

looks a bit strange

(small).

What Objects can I use to print corectly??

答:

I get the printer resolution (and unprintable are if desired) and

then specify coordinates using decimal inches * resulution e.g.

x = trunc(1.5 * ResX) at 300 dpi will begin at 360 * 1.5 or 540 pixels.

Get Resolution and unprintable

ResX := GetDeviceCaps(ACanvas.Handle

LOGPIXELSX);

ResY := GetDeviceCaps(ACanvas.Handle

LOGPIXELSY);

pOffsetX := GetDeviceCaps(ACanvas.Handle

PHYSICALOFFSETX);

pOffsetY := GetDeviceCaps(ACanvas.Handle

PHYSICALOFFSETY);

print something

Printer.Canvas.TextOut(trunc(1.5 * ResX)-pOffsetX

trunc(2.5 * ResY)-pOffsetY

'Hello');

This is nice when printing data on an existing paper form as you can

just measure it up in decimal inches.

可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 哪门编程语言影响力最大? 微软启动“Companion Web”计划 可互连多屏幕设备 让你望而却步的密码管理服务已获得100万美元的种子基金 SDCC 2013开始公开征集讲师和演讲主题 不用图片和JS,照样创建绚丽的动态CSS3菜单 是福还是祸?开发者饱经风雨的内心独白 设计师/开发者看过来,七月35款新工具速递! Hadoop进军机器学习:Cloudera收购Myrrix共创“Big Learning” 张民杰:三人团队的OpenStack机会 White Elephant:开发者必备的Hadoop利器 不及分析师预期:微软第四季财报揭晓 净利49.7亿美元 Facebook收购英国手机代码验证公司Monoidics Apache基金会废弃其C++标准库 鲍尔默宣称微软有一百万台服务器,这个数字真的靠谱吗? 全球6000开发者:iOS、Android、WP最痴情谁? 提升网站知名度的十大方法 IBM移动平台首席架构师Greg Truty:MobileFirst从底层架构开始 Hallo.js:一款所见即所得的Web编辑器 用javascript或vbscript如何控制radio单选按钮? 菜鸟初学问题,查询两个数据库同一表格中某一字段重复的记录呢? 哪位大哥帮我看看,怎么配置 中秋节送分咯!!!! 如何在winform的datagrid中的cell里面截获keypress事件? 征集创意:在手机短信上还能开展什么新的,有商业价值的业务?就是大家潜在需要而没被开发出的业务。 怎样用c语言驱动1台modem拨通另一台modem? CSDN的朋友们,心中的困惑还需你们的热心帮助。 pb中处理数组的大问题sossos CVS登陆不上 请问各位,现在用什么软件配合.NET做界面设计比较方便一点? 什么操作系统最好? 在一个页面中把串%ba%ba%d7%d7还原为中文字,,用JAVASCRIPT来实现,, 与数据采集设备的通讯问题!!!!!!up有分,高手请进! 中秋节了,发薪水了,散分 讨论:关于Notes数据库隐藏设计的问题 大家中秋快乐,有关内存的释放问题,急急... 送分贴,翻译 更改文件属性的API如何定义? 谁能告诉我这是怎么回事?? treeview显示不正常 Applet问题 Asp程序无法访问远程XML文件 想建立一个公司内部的拔号服务器,像163/169那样?? 问两个简单的C语言问题 如何控制IE的工具条,比如刷新按钮! applet显示问题 新手:关于GDI,怎样取窗口非Client区域的DC? 使用asp连接webservice,实现短信的插入,发送,2003操作系统msxml3.dll 错误 '8000000a' ,2000没事 DataSet或DataView中如何实现类似数据库命令 LIKE 的筛选功能? 如何删除ini中的某个Section 祝大家中秋节快乐!怎么在日志组中增加日志文件?? 使用5xsoft upload组件上传到服务器时,如何检查里面是否包含危险代码? 中秋快乐,关于内存释放问题 内存分配存在的问题 怎么设计ADSL的路由!! javaben的释放问题 用NMUDP如何在Client端和Server端之间传递对象呢? 为什么程序员没人爱? 指点迷津啊??? 关于DataGrid的一个问题 VCD碟的.DAT文件转换成MPEG格式? 中秋节快乐!散!顺便问一下大家都吃什么品牌的月饼?五点钟准时结贴!!!!!!!!!!!! 求助!!!鲁文易盘无法驱动 如何获取提交表单的内容 Ado 问题 oracle中删除一个用户,用语法如何写 北京的兄弟们你们找工作通过哪几种方式 请问哪儿有cobol的编译器? 请问考系分的兄弟,都在看什么辅导书啊? 不能解决的给分,解决的给钱,时间限制在,13日之前!!!!!!!!!!!! 一段还来得及开始的感情就结束了怎样用优美的句子表达 某最简分数乘以17又2分之1得到数A,除以40分之3得到数B.且A、B是一对互质数,求这个最简分数. 分子和分母是()的分数是最简分数.a质数b互质数,选哪个, all my students are ambitious,aggressive andhardworking.怎么翻译呢? 吾矛之利,物无不陷也.中之的意思急. 第八届博雅杯的结果为什么现在还么有出来? 三点水加个教育的育字怎么读?如题 黎曼假设、普安卡雷猜想、霍奇猜想、戴尔猜想、斯托克斯方程、米尔斯理论、P对NP问题)这些题目和哥德巴赫猜想,四色定理,费马大定理那个难 五年五班语文上册基础训练答案是{圆明园的毁灭}的答案哦 关于我们班的语文成绩.我们的语文老师,总是讲解词,背解词,考解词.主要是学学文言文,古诗,讲一课文言文恨不得讲上四节多课.那些现代文总是二十多分钟一篇,真是想不通,我班的语文成绩期 平面直角坐标系中,A(-1,1)B(1,-1)求线段AB的距离~木马~ 俄建议叙政府与反对派在莫斯科举行非正日本警官爱用枪对准下属遭停职 称只为卜拉希米:日内瓦会议不能缺少叙反对派奥巴马出席投资美国峰会 承诺加强吸引日再上传英文版主张独岛主权视频 韩再德国成欧洲首个允许出生登记性别栏空白德国成为欧洲首个允许出生性别栏填写空会议记录爆奥巴马医改网站开通首天仅6法一酒店房间装透明天幕 住客仿佛置身韩政府再次敦促日方删除主张争议岛屿主日本东京民众提前两天排队等待购买新款下水井盖被车轧飞俩好心人帮忙盖上小偷凌晨潜入饭店偷盗 监控拍下清晰面谢娜、马天宇春晚节目被毙社区医院这些检查项目免费《老炮儿》约等于老北京版《古惑仔》长春供热退费方式出台欧亚卖场于志良荣获“全国商业优秀企业4G时代 流量都去哪儿了?谷歌年度科技产品搜索排行: iPho就因为一句“绝对性价比之王”,被重罚一个网购者的8天维权之路:为了讨个公道火无限之邪恶梦魇回到90年明朝五好家庭散仙俱乐部役鬼通神吕汉相公你好坏幽暗神王我的老婆是公主创世修神五台旅游图木舒克旅游永宁旅游靖远旅游龙潭旅游重安旅游隆德旅游灌阳旅游玛沁旅游白寺村旅游华安旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘