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

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

《近匠》腾讯信鸽:基于大数据的推送 超低功耗'Whisper'架构发布:IoT、可穿戴连接性IP新标准! R的数据分析制霸以及企业级应用盘点 第二届游戏运营技术论坛来袭!与大牛共论云时代的游戏运营之道 云雀科技:飞行器+地图,展望飞行器的新体验 Sandstorm,前Googler和极客名人建立通用开源工具保姆 触控科技CEO陈昊芝:引擎技术推动行业升级 谁能成为Hero,这一次你说了算!——TCL智能电视开发大赛创意阶段评审征集 微信官方在“公开课”上13个热点问题的解答摘要 MDCC 2014移动开发者大会10月开幕:你就是主角! 设计师该如何挣得一席之地? 回到未来:最热门的十大清洁能源技术公司 深度学习:未来机器人的进化途径 搜狗开源内部项目管理系统Cynthia,已被数十家企业采用 沃游戏新版本全新登场 好友PK根本停不下来 腾讯发布首款智能硬件,内部筹建孵化器鼓励创新 触控开发者平台:孕育“十亿开发者俱乐部” 《近匠》大新伙伴:大姨吗防晒小助手,帮你呵护女神 专访阿里云总裁王文斌:做出“用得爽”的工程产品 专访AMD全球副总裁潘晓明:2014全线发力,力争中国市场 搜狗开源内部项目管理平台Cynthia意欲何为? 深度解析浪潮新八路服务器TS860 支持Box2D,开源HTML5 2D游戏引擎FLAG 一周消息树:从程序员到架构师的方法与逻辑 【CTO俱乐部走进海尔】海尔的转型探索之路 十一问MongoDB CTO,谈NoSQL人气王的扩展、事务及运维 腾讯“创业•密码”开发者论坛 ChinaJoy引爆创业者关注 从F1赛车到智能手机,无线充电技术之崛起 助力梦想!MDCC免费为优秀App开发团队提供展位 为Symfony2和Redis正名,基于PHP的10亿请求/周网站打造 【聚焦API】教你如何选择最适合的NLP API服务商? 编程高人给个流程图好吗? 谁能大概告诉我一下Vector()这个类是怎么回事?该怎样使用比较合适? 2894~~~~~~ 關於ASP和RS232 DAO编程,代码那里错了?? problems about calling xp_cmdshell proc.I need ur help. 关于Debug问题! 一个小问题,谁解决就给100分。在线等待 修改表里一个字段的类型,怎样写SQL语句? 编程高人给个流程图好吗? 用MAPI怎样取出邮件附件,急用 如何调用计算器啊? 为什么我的机器运行spy++出错啊, 关于网络流量的监控,高分 ***************动态创建DSN中的一个怪问题***************** 除了电脑程序外,还有什么物理性的方法可以清洗喷墨打印机的墨头? 请问这首歌的歌名? xmldom问题。 讨论:给个用XML的理由先,我现在只知道XML可以跨平台,提供数据接口的作用。请大侠讨论一下 如何定义全局变量? 在线等待:在DELPHI中调用windows api 的 SetFocus(),应怎样调用? 关于指针问题 有点搞不懂了!! switch的简单问题 在哪里添加全局函数 两个asp.net问题,请高手一定解答! 关于Treeview的几个问题? 怎样才能实现按返回按钮以后,自动刷新刚刚提交的页面!代码如下,请帮我改改! HELP!!! 请问VB关闭WINDOWS下面的所有窗口的命令是什么?谢谢 数据移植问题,多帮忙呀! 问来问去,也没问出个所以然来。干脆再简化一下问题吧。 如何制做帮助文件? 一个XML绑定数据集的问题? 多层数据库一问!!!!!!!!!!!!!!!!!!!!!!!!!! 关于winvnc(在线等待) 请问“数据结构”这门课主要是学什么的? 这个毛病是什么原因?(加急,肯请赐教) 在线等候?自定义控件问题? 请问知道进程的ID值和句柄,能否控制程序窗口的大小? 多层数据库疑问!!!!!!!!!!!!!!!!!!!!!!!!!!! 关于IBM AS/400 DB2数据库编程 怎么从_streamptr 中恢复 recordset? 与数据库建立联接的后续问题 早上偶然看见前女友从眼前走过,突然有种莫名的感动 歌词和音乐同步问题?winnap的歌词插件基于什么样的原理做出来? 一个菜鸟的苦恼!! 用命令行配置IIS的命令是什么? 看看这个程序到底错在哪? 查找点对象问题,各位进来帮我看看 各位朋友一定请帮忙,关系到我工作问题(不是很难) 关于12mm玻璃我有个问题想问下您我买了一个1500*550*800的鱼缸 鱼缸底下有一圈拉筋玻璃厚是12mm 之前我在缸底铺了一层约5厘米厚的小石子挺小的那种 每个大概能有小指甲盖那么大吧 当时缸里 在平面几何中,对于Rt△ABC,∠C=90°,设AB=c,AC=b,BC=a则 (1)a^2+b^2=c^2,(2)Cos^2A=Cos^2B=1在平面几何中,对于Rt△ABC,∠C=90°,设AB=c,AC=b,BC=a则(1)a^2+b^2=c^2,(2)Cos^2A=Cos^2B=1(3)Rt△ABC的外接圆半径为r=根号(a^2+b^2)/2把 三峡大坝设计高度175m,当水位达到150m时,坝底所受的压强是多少? 阳光房顶面玻璃有很多冷凝水,多的时候就像下雨是的往下滴,怎么解决一下,大概有33平米我是开餐厅的,这个顶面在店里的四周,宽2.8米,离地面4.2米高.有没有什么玻璃膜之类的,贴上就防雾了--- 在Rt△ABC中,∠C=90°,AC=9,BC=12,则点C到AB的距离是多少? 非齐次方程特解与对应齐次方程特解差仍为非齐次的特解吗?全书只说了其和为非齐次的特解,可是在题中答非齐次方程特解与对应齐次方程特解差仍为非齐次的特解吗?全书只说了其和为非齐 我想发酵鸡粪,我想知道具体的流程,鸡粪夏天发酵含水量控制在多少,发酵后的鸡粪需要粉碎吗? 怎么求反比例函数的值小于一次函数的值时x的取值范围 如图所示,匀强磁场竖直向下,磁感应强度为B,正方形金属框abcd可绕光滑轴OO`转动,边长为L,总电阻为R,ab边质量为m,其他边质量不计,现将ABCD拉至水平位置,并由静止释放,经时间t到达竖直位置,产 我家是一楼,一下雨就会反水、、地上全是水...怎么办呀、、 “来如流水兮 逝如风 不知何处来兮 太阳风暴是超声波辐射吗 搞不清楚高数同济六版到底哪些章节不考.有人跟我感觉一样吗?对着考纲,还是不太清楚哪些章节考哪些章节不用看, 根据图象写出使一次函数的值大于反比例函数的值的x取值范围 其中n=-2 三峡大坝内水位达到175米时,水面下25米,水对坝压强是?船底在水面下10米,1平方厘米上受到水的压力是?长江三峡大坝内水位达到175米时,在水面下25米深处,水对坝的压强大小是?如果船底在水面 下雨时板鞋进了水 晒干后总有股异味 洗了好几次都没用 怎么去掉那股异味 来如流水兮逝如风,飘飘入世,如水之不得不流,不知何故来也不知何所终. 有关超声波发射的问题……我目前在做一个有关超声波测距的设计,发射功率与距离的关系,比如我要做大概3-5米的测量,那么超声波要做多大的功率啊? 我现在手里有同济5版的高数上下册,同济四版的线性代数,浙三版的概数,我考数学三,哪些章节不用看?千万不要复制2010年前的老答案啊~ 写出一次函数的值大于反比例函数值x的取值范围,意思是什么? 如图所示,竖直面内放置的两条平行光滑导轨,电阻不计,匀强磁场方向垂直纸面向里,磁感应强度B=0.5T,导体棒节ab、cd长度均为0.2m,电阻均为0.1Ω,重力均为0.1N,现用力向上拉动导体棒ab,使之匀速上 根据图像怎样确定反比例函数大于或小于一次函数的x取值范围 来如流水兮逝如风,不知何时起兮何处终什么意思 =SUMIF($N$3:$IV$3,"*件数*",N4:IV4) 在电脑上怎么操作这个公式 植物的生长主要依赖于_______,________,________,________等环境因素 “来如流水逝如风,不知何来兮,何所终”出自哪里 如图所示的电路中,电源电压为U=60V,内阻不计,电阻R=2欧姆,电动机的内电阻R1=1.6欧姆,电压表的示数为50V.求电动机的输出功率(R在干路,R1和电压表并联,图画不出来, 一次函数与反比例函数的图象相交于A.B两点,则图中使反比例函数的值小于一次函数的值的X的取值范围是A点坐标为(-1,2)B点的坐标为(2,-1) 来如流水兮逝如风、不知何来兮何所终了.的作者是谁? 为什么太阳光谱中的暗线不是地球大气吸收的结果 植物生长依靠的是( )能 超声波有辐射么 对孕妇有影响么 想用sumif公式对下列表格求和,请问具体方法A列 B列 C列 产品编号 数量 金额92L33p11 1 130093k12q17 2 322001N18J23 1 89908M17L11 3 2330产品编号的第5位是厂家代码,我想根据第5位每个厂家的代码,计算出每 并刀如水什么意思 (8/9xy^2-4/3x^2y)*(9/4x^2y^2)+3x^2y^2*x^2y 复杂的sumif公式如何计算求和?B2,B3,B4,B5对应的产品分别是萝卜,蒜苗,黄瓜,白菜;C2,C3,C4,C5对应的是白菜,黄瓜,萝卜,蒜苗产品,在C列后面是D列,D2,D3,D4,D5是周一的销量,分别是100,120,150,166 ;同样,E 什么是光谱奇异或者奇异光谱啊?还有什么是奇异相干性?即coherence singularities?我在看个文档coherence singularities in the field generated by partially coherent source,中有关于这个的,请说的详细点,最好发个 液态水的温度范围是多少呢? 太阳的发射光谱和地面测得的太阳光谱有何不同?为什么? 一个圆的半径扩大10倍,周长也扩大10倍. 温度低于10℃是否还存在液态水 流水能流多久 心能痛几何 一个圆的半径扩大4倍,它的周长和面积是否都随着扩大4倍? 硫在哪个温度范围呈液态? 一颗心究竟可以承受多少痛. 一次函数与反比例函数的图像相交于AB两点,则图中使反比例函数的值小于一次函数的值的X的取值范围?反比例函数图像经过二、四象限,一次函数图像经过一、二、四象限,A点在第二象限,坐标 竖直放置的光滑U型导轨宽L=0.5m,置于范围很大的磁感应强强度是B=1T的匀强磁场中,磁场垂直于导轨平面,如图所示,质量为m=10g的金属杆ab,无初速度释放后,紧贴导轨下滑(始终能处于水平位置) 永远有多远,心能承受多少痛 还是那一条 写出使一次函数的值大于反比例函数的值的x取值范围 求:发射有代码的超声波的发生器! 我想用手机接收有代码的超声波,用于测距!找一个可以发送 带有代码的超声波发生器! 为什么天空反射蓝光?落日反射红光? 钓鱼指数中气压多少为佳 判断题;线性齐次方程的两解之差仍是原方程的解. 金属铜网和水泥块在启普发生器中为何可做双氧水分解的催化剂? 用太阳能的水溢流管就流水是怎么回事 判断题:线性非齐次方程的两解之差是其对应齐次方程的解. 4a的2次方b的2次方系数?次数?项数? 韩红歌曲《天亮了》唱的是什么意思?有什么特殊意义吗? 矩形金属框abcd宽L=0.20m,足够长,质量m=0.10kg,电阻R=0.10Ω.在金属框的正下方有一匀强磁场,磁场方向垂直纸面向里,磁感应强度B=0.50T.开始金属框下端ab正好处于磁场上边缘处,并与磁场边缘平行.现 4a的平方b的平方的项数是什么? 商务部敦促欧盟执行WTO中欧紧固件反玻利维亚计划大力发展核能等替代能源中国前三季度国际收支经常项目顺差13巨丰投顾:多板块出现井喷 市场方向渐父母秘密策划 6岁白血病童收全球百万世界主要城市10月31日天气预报新快报记者陈永洲因涉嫌损害商业信誉罪浙江省拿出百万元奖励一线杰出职工获评服役三十年的运河桥明起拆除 见证杭州浙江从明年开始开展无违建县创建活动杭州一大妈在城市空地种2000余株罂浙江临海休闲产业进入“双时代”打造“宁波红光集团等6企业涉税严重违法35杭州西博车展第二季 豪车美女亮相博眼驻韩美军军事邮局成\"毒品仓库\' 中国-海湾合作委员会第三轮战略对话将商务部:欧盟对华钢铁紧固件反倾销措施习近平会见伊朗伊斯兰议会议长拉里贾尼朝鲜举行全国软件竞赛暨展览会 展出逾日本拟将钓鱼岛海域列入重点防御“灰色白宫将约束国安局监控活动 检讨情报搜合肥经济指标“进十强”目标逐步实现3人喝醉酒找代驾代驾也喝醉爱亲贾秀娟:80后创业者的精彩人生备战2016选举 民进党划分五大战区瓶子里的梨出门看天有一种真爱叫做教前任女友做别人好老婆美数十州反对同性婚姻合法中国票房半年 200亿,你献了多少?上半年我省新批办台资农业项目26个赵克志 陈敏尔会见龙永图 章新胜福建自贸试验区在沪举行投资推介会转湖季合肥西站换装完毕 将只停靠普速列车(君融贷CEO吴隽谈:大数据风控技术革1300万欧元台胞证步入“芯”时代一秒一世界及时!雄鹰即将展翅不强平!A股有望慢慢恢复元气宁晋河渠工商分局开展“农资打假保夏种
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘