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

报表制作技巧(三)-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.

众筹未来必拥抱众智 果合报告:iOS趋势及手游开发六大核心策略 无视OpenStack的前车之鉴,SAP等毅然支持Cloud Foundry 轻松搞定TB级数据,开源GraphLab突破人类图计算“极限值” 英特尔至强E7 v2处理器:2倍性能提升,3倍内存容量,4倍I/O带宽 著名工业设计师Yves B&#233;har:“我们并不需要三星智能手表。” 跨平台的.NET运行环境 Mono 3.2.7发布! Google石博盟:抓住全球化和移动化的机遇 ShareSDK针对Unity发布社交化组件 2014 CocoaChina开发者大会将公布触控奖学金等高校合作计划 中低端智能手机热销,未来市场或主打价格战 Facebook开源flint:一个用D语言编写的C++静态代码分析器 AMD携手BlueStacks,下半年推出零售版双操作系统 历时6年 Github发布基于Web的桌面文本编辑器:Atom Ratchet:构建移动应用原型,新版支持Android 13个最狂帅炫酷的前沿科技研究项目 打动面试官的五大技能 乐视TV和NBA签约三年互联网电视版权 首度披露大屏运营策略 支撑4.5亿活跃用户的WhatsApp架构概览 免费使用Windows?微软推Windows 8.1 with Bing实验项目 C/C++开发者必不可少的15款编译器+IDE Amazon推荐,Facebook追踪,大数据时代的“狗仔队” NewSQL登场,NuoDB告诉你未来数据库什么样 2014 Unity亚洲开发者大会&#183;中国站:技术课程全面解析 与其坐以待毙不如主动出击 软件如何避免惨遭淘汰 一周消息树:程序员想找好工作?那就学好Linux! 移动周报:开发者必须了解的10大跨平台工具 一周热点:领先Google 150年的数据可视化及WhatsApp架构解析 R语言为Hadoop注入统计血脉 海外游戏市场:Google与“开心农场”谈破局 2014年2月操作系统份额:Windows仍在增长 Win 7以47.31%稳居第一 ODBC下的数据库查询,急!急! 初学者的问题--com dll服务器如何在客户程序中使用? 如何统计 DBGrid 中记录的个数???? 请教:m_fLogfile.Read(pBuffer , sizeof(VNumAndPassWord)); 错在哪? 谁能替我做一张图片啊? 气死人了,安装红帽子在输入根口令时遇到的尴尬:( 奇怪的oracle数据库错误? 公布我的软件了——网络邮盘,国内日下载量>1000,国外<10 关于堆和栈的队! 请问,准考证的英文怎么说? ASP终极开发:请成功用INSTALLSHIELD设置好IIS的高手朋友进来看看。100分全散了!!!!! 是屏保的问题?还是硬件故障? 紧急救命啊!各位大虾:)98关机时断电出现的故障 初级问题,请教大侠 在C#里面如何取得这个SQL値那? 请教, 扫描的问题... 不好意思,还有问题,关于span,恳请高手答完再下班。 心情郁闷,各位朋友安慰我一下好么。 如何注册JDBC驱动啊!我手头好多的驱动但是我不知道如何的注册这些驱动 在RICHEDIT里怎么实现换行输出? 200分求快速取中值的算法!(thirdapple) Flash Action 如何定时,就像Javascript中的setTimeout()? 保护的问题 用一个关于Printer对象的问题?各位大虾,初来乍到,请多多关照。 请问如何自动提交一个FORM? 请问各位师兄:web开发如何起步?例如使用JSP? 求助! 如何知道电脑中的网卡是什么型号的? 大家请帮忙,兄弟必重谢,分都给了 如何制作含有msdn数据库的安装程序 Web Service服务程序如何增加对SSL的支持? 怎么還可以上網﹐向各位大蝦求救 请问如何自动提交一个FORM? 如何处理并发访问! 如何在网页中打开*.ocx组件?是否能打开? 如果给我再来一次的机会...我还是想说... 求随机数发生器的算法 高手来拿高分!!!!!!!!!求开发自定义服务器控件的好书或代码 那位有ESQL(嵌入SQL)中文资料? 如何select LONG类型的字段? 红帽子里面可以演戏吗? 如何改变 Win me 快捷方式上的小键头图标。 ANY元素不是可以表示“任意”吗?为什么这个不行? 皇帝的新装 求助! 如何知道电脑中的网卡是什么型号的? 在winxp下如何安装winme实现双系统启动 在windows form下,怎样为datagrid添加click事件? 大家说小系统用什么数据库好,别说用ASA,ACCESS 大家好。我是凶宝宝。^_^请多关照!!! 关于date类型的比较 谁有电梯调度程序的源程序? 1000分 关于字符串的问题,请教!!! 为什么promise+to do而consider + doing? I think we must make it a rule to do some cleaning every day这句话是啥意思?请赐教!在下感激不尽 do some cleaning什么意思 The distance between you and me,that what means to measure?You know what翻译中文 promise doing sth还是to do sth 英语翻译 Paris,Tokyo,toronto各是哪国的城市? promise doing 和promise to do有什么区别?球答.类似的问题呢 xxxto do/doing.. Must I do _____ cleaning this Sunday?用some还是any according to the conversation between Joe and the aliens, what do we know about Venus 怎么翻译 你能感受到自然与文化的交融 用英语怎么说 任务性阅读 我要去考公共英语四级,请问考过的朋友,我该怎么复习?该怎么复习啊,我看了一下题感觉好难.好害怕.这样是绝对过不了的,我要过的是公共英语四级。现在已经被吓坏了。真不知道报考是对 两种文化碰撞交融的英语怎么说由上传统文化与先进文化碰撞交融的英语怎么说 英语作文过年准备 She is on longer the pretty girl ______she was.A.that B.who C.as D.whom讲解说that作表语那C为什么不行?as也能作表语,表示人和物都行 having drunk some milk i have some trouble with my stomach这里为什么用having而不用have?为什么? 红花衣和日记本读后感初一读后感红花衣和日记本,或者读者2014年一月的两期任意一篇文章的读后感600字 She ___ some of her friends thought she moved to another city.A.kept away from B.took care ofC.kept up with D.caught up with说明理由, “I am having some trouble with my classmates ”said lisa 直接英语变间接英语 “I don‘t want to end 急求《红花衣和日记本》阅读答案 请问Kite is no longer the girl she 请问Kite is no longer the girl 已经是Kite再也不是曾经的那个女孩的意思了,为什么后面还要加she was? Promise to do 和Promise sb to do 区别何在含义 I did some cleaning yesterday evening? She is no longer the girl she was before she went to the countryside.麻烦讲讲这个从句,看得懂,但弄得不太明白. 象interst 修饰人后面加个ed 修饰物么加个ing有什么规律吗 interst又是什么词性 还有哪些词的规律是这样 I DID SOME CLEANING YESTERDAY EVENING的问句 what's the Difference between (for and with) (helped and was helping) 怎样能准确的翻译句子 +ed形容人 + ing 形容物 至于什么词加的我忘了.记的我妹妹说过... I did some sports yesterday.改为否定句 多伦多什么意思好友在qq里说 “多伦多 俄亥俄”什么意思 请问这些请求的句式为什么有些动词加ING,有些加ED呢?Can I borrowed your pencil?Could you lend me a jacket?Is it OK if I ues your phone?Do you mind if I use your CD burner?Would it be OK if I picked it up on Friday night?Would you mi “英语格言”和“英语幽默”的英文怎么写? Toronto什么意思? any some在问句里有可数名词和不可数名词的关系么?是可数用some不可数用any么 耳朵旁加一个冉念什么. going back to toronto for education中文意思是不是正随后去多伦多教育?还是培养? 英语翻译Having finished her homework,Ma Li wants some music for relaxation.As usual,she starts her computer and goes to Baidu.com to download music files.But this time she is surprised when an announcement about protecting songs' copyright bursts 左耳右冉念什么 Toronto什么意思,帮忙回答一下 英语翻译就就就就就就就就就就 耳贵 和起来是什么字? He is a very good man ,还是He is very good man?哪个对? 中译英,请不要用google中译英:我们以前从不默音标,但是她要求我们默写单词要默音标.我们一开始觉得很难,但是后来,特别是在进了高中后,我们才知道她是为我们打好基础 英语广告英语的特点及其翻译 ] he is poor,he is very happy. 英语翻译Keeping onels head low can be a way of avoiding trouble ,but some types of trouble may necessitate heading in the opposite direction.十万火急!应该是Keeping one's head low can be a way of avoiding trouble ,but some types of trouble 耳字进门是什么字 Joan was happy because she was given some _(use) gifts last week. 英语翻译韦政通说:“在所有的爱中,最强烈,最令人困惑,也是最缺乏稳定性的就是性爱.”(韦政通.中国的智慧[M].长春:吉林文史出版社,1988.250.)所以建立在性爱基础上的婚姻总是包含着“ Taken good care of by his family ,the old man lived ------- three years after the operation .A.other B.more C.another D.every 我选的是C.但是错了,可以帮我分析一下原因吗?顺便答案是什么呢 用括号内单词的正确形式填空.She ______(marry) a rich man some years ago. 翻译英文"Love story" He ( ) to the hospital after the accident. A. took B. was taking C. was takenHe ( ) to the hospital after the accident.A. tookB. was takingC. was taken这答案是什么 I was a student some years ago.对some years ago .提问怎么提? love story翻译 被照顾 是be looked after ,还是be taken care of 这个字念,什么 love story的翻译 苯女孩别太傻得英文怎么拼?如题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘