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

用Delphi编写打印程序的窍门

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序,那么,下面这些技巧或许对你有所帮助。

1.获娶显示当前打印机的分辨率

Windows下的打印分辨对打印程序有着至关重要的作用,如果你想知道打印机的分辨率,请在程序中加入一行:ShowMessage(′水平分辨率′+inttostr(GetDeviceCaps(printerHandle

LOGPIXELSX))+chr(13)+′垂直分辨率:′+inttostr(GetDeviceCaps(printerHandle

LOGPIXELSY)));结果就一目了然了。

2.将结果直接送到打印机

Delphi提供了两种打印方式:一是将结果输送到Form,再调用Form的print方法将结果输送到打印机,二是将结果直接输送到打印机。如果你采用第一种方式,则无论你怎样调整Form的PrintScal属性,打印出来的东西也不会让你满意。因此建议采用第二种方式。

3.尽量不要使用AssignPrn

尽管AssignPrn简化了文本打印操作,使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便:你无法知道当前打印的行数,无法准确控制行距,无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。

4.用打印机的点数做度量单位

如果想让打印程序在任何打印机上都能正常地打印,你就必须改变你的度量单位。如果采用固定的度量,不同分辨率的打印效果是不同的。举例来讲:printerCanvasrectangle(0

0

360

720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形,但在600×600的惠普6L上只能打出06英寸宽、12英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下:VarPointX

PointY:integer;PointX:=GetDeviceCaps(printerHandle

LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle

LOGPIXELSX);printerCanvasrectangle(0

0

PointX*1

PointY*2)这样,无论你使用什么样的打印机,都能得到一个1英寸宽、2英寸高的矩形。

5.添加打印程序单元

尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元,但打印程序单元(Printers)却不在之列,要想使打印机正常工作和程序不出错,你还是老老实实手工给它加上吧。

知己知彼 企业应用移足云端必须清楚的10大方面 NVIDIA推Android掌机:七年孕育可否成就野心? 人民日报:2013关于新媒体的8个猜想 互联网大时代成就创新小企业 移动互联网创新论坛报道 Mobile Detect:判断移动设备类型的开源PHP类 我是如何Hack Facebook Employees Secure Files Transfer服务的 投资可再生能源:Google 2亿美元投资风力农场 构筑商业生态系统 阿里巴巴集团全面变革组织架构和管理体系 美国众多银行网站遭DDoS攻击 疑似伊朗所为 构建高可扩Web架构和分布式系统实战 CES2013 AMD发布移动处理器路线图和环绕计算概念 对话Linus Torvalds:大多黑客甚至连指针都未理解 PaaS玩家们,怎么演好自己的角色? Apple高管表态:低端机绝不是iPhone的未来 Web开发人员应该知道的IE 10兼容性问题 一周消息树:CES2013揭幕 科技巨头纷纷发力 2012专利排行榜 IBM位列第一、Google增长最快! 微软赞黑客并称Windows RT越狱非安全漏洞所致 周报第46期:GitHub历史上最糟糕宕机事故回放及反省 著名计算机黑客Aaron Swartz自杀身亡 移动周报:移动互联网行业技术趋势前瞻 旁门左道:让移动游戏下载量暴涨的邪门功夫 可植入身体:“可穿戴计算”时代来临 Web服务器份额:Apache仍居首,Nginx将超IIS 防税务欺诈:挪威财政部将开源收银机代码 响应式设计实战:3人+1.5个月 IE10优化版cnBeta诞生记 不听乔布斯劝告:“不专心”的Google照样干得好 躲过一劫!苹果不锁杂志类APP介绍截图 Oracle发布软件更新修复Java漏洞 设计师将吞噬工程师吗? 开源产品系列:小巧灵活的Web框架web.py 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! java VS c#^-^ ?? 请进 寻求QuickReport3以上版本 for Delphi3 的源代码或者安装包? 請問哪大俠用過 ibm 的 bridge2java啊,我把Excel的所有類都導出來了,但它的QuickExcel.java文件還是運行不了, 求救!新装了一块硬盘,为何找不到呀? SetWindowLong函数在delphi里可用,为什么在c++builder 中不能用??? 用弹出式菜单命令弹出一个dialog,可以响应键盘,可是不响应鼠标? 请教,Inserts类是拿来干什么用的? !!!急急急!!!怎样在WIN2000下把NTFS转换成FAT32啊。数据不丢失。 回复太短!或太长!!! visio2002的数据库建模,能不能生成SQL脚本? 急急啊,有關servlet的問題,源碼如下: 添加数据的问题 坐标问题 unix下的nfs Merry Christmas! 给分!祝大家一路发! 每个文件(目录)有3种权限 写DLL? 海水可以结冰么?不可以,因为大海里的水含有盐分,有盐的东西都不会结冰的. 甲物体质量为乙物体的三分之一,乙物体体积是甲物体体积的2倍,求乙物体的密度明天就得交 对澳大利亚西海岸荒漠环境的形成起重要作用的的洋流属于什么洋流?如题选项:A.风海流 B.密度流 C.补偿流 D.暖流正确答案好像是C, 海水结冰温度是多少? 有甲乙两金属块,甲的密度是乙的5分之2,乙的质量是甲的2倍,那么甲的体积是乙的多少? 拉尼娜现象对赤道逆流和秘鲁暖流及环太平洋的洋流和气候有什么影响?还有厄而尼诺现象 海水结冰问题冻牛奶时,冰和奶是分开的 冻豆腐会留下空室海水结冰盐会留在里面吗 甲物体的质量是乙物体的3倍,使甲,乙两个物体的体积之比为3:2,求甲,乙两物体的密度之比 为什么水银温度计用过要甩,否则就无法继续用呢? 关于海水结冰问题海面上的水结冰,结成的冰融化后与没有结成冰的水的含盐量大概是多少比多少,如果给出各是百分之几更好.还有把海水晒成盐这种工艺叫做海水什么? 有甲乙两物体,家的密度是乙的密度的三分之二,乙的体积是甲的体积的四分之五,那么甲的质量是乙的质量的多少倍,快 急 为什么用完温度计要把水银甩回去?而且再怎么甩也甩不回原点? 中国那些地区海水结冰了? 澳大利亚东北部海域有大量的珊瑚礁,分析这些珊瑚礁的正面作用. 水银温度计是否可以把水银甩下去以迅速再用? 海水易结冰还是河水易结冰? 珊瑚礁群分布在澳大利亚的什么海域? 将一块石蜡,分别放入足量的水和酒精中,当石蜡静止时,它排开水的体积与排开酒精的体积之比为 (ρ石蜡=0.9×103kg/m3,ρ酒精=0.8×103kg/m3) 海水为什么这么咸?南北极的冰是不是"咸冰"?这么咸对人类有什么好处?真的没想到,我第一次下海,就是这样的感觉.海水太咸.所以想到了这些. 家庭和实验室常用的温度计是根据什么的规律来测量的 有谁知道除了水银外,在常温下密度大于2的液体,混合液体也可. 为什么海水不结冰呢? 固体密度大概是液体密度的多少倍? 常温常压下为液体且密度大于水的物质1,苯;2,硝基苯;3,溴苯;4,CCl;5,溴乙烷;6,乙酸乙酯 怎么提纯焊锡中的锡?在家搞实验. 固体密度大于液体密度? 索马里半岛的沿岸热带沙漠气候的形成愿因? 如何从助焊锡中提取焊锡 河水和海水哪个更容易结冰 这句话对么?在秘鲁寒流影响下,沿岸热带沙漠气候所跨经度范围广 海是河流汇聚而成的,还又流道各个河流,为什么海水是咸的,而河水是淡的?为什么呢? 为什么海水比河水难结冰 澳大利亚上的热带沙漠气候和非洲撒哈拉沙漠在形成原因上的共同点? 为什么海水会又原先的淡变咸 怎么样求固体,液体的密度用五种方法测量物体的密度,方法越多越好。、文字说明,最好有图画,要讲清楚,不能有遗漏, 索马里半岛热带沙漠气候形成的原因 为什么海水咸,河水不咸 540kg的水化成冰 体积是多少 为什么索马里是热带沙漠气候 为什么海水是咸的而河水、湖水是淡的呢? 1kg的水化成冰它的质量、体积分别是多少? 怎样测冰块的密度?放在水里算体积怕化了,切割成规则体不准确,在切割过程中也很容易化,应该怎样测冰块的密度呢?试验工具随便选,并写出冰的密度的表达式. 海水为何是咸的 甲乙两木块的质量比为3:2,其体积比为1:2,则其密度比为多少? 一个容积为3*10^-4立方米的瓶内盛有0.2千克的水,一只口渴的乌鸦每次将一块质量为0.01千克的小石子投入瓶中,当乌鸦投了25块相同的小石子后,水面上升到瓶口,求:1.瓶内石块的总体积.2.石块的 金属温度计\电子温度计的原理 甲乙两质量分布均匀的物体的体积相同,它们的质量之比是5:3,则它们的密度之比是_________.若甲截去3/5, 1:体积为30平方厘米的铜球的质量为89克,将它的中空部分注满某种液体后球的总质量是361克,求注入的液体密度的大小.(p铜=8.9*10的三次方 千克/立方米)2:一只烧杯装满水,总质量为350克,放 温度计的原理问一下温度及时利用什么原理制作的?温度计的刻度是怎么画的?每一度之间的刻度是怎样计算的?为什么温度计选择酒精而不选择别的液体?是因为酒精防冻吗?希望可以说的详细 海水结冰是盐为什么会分离出来? EGYPT RED SEA (埃及、红海)是埃及在前面,还是红海在前面EGYPT RED SEA (埃及、红海)是该EGYPT(埃及)在前面,还是该RED SEA(红海)在前面呢? 温度计的原理是什么? .冬天,小明在海边散步,发现路面上的水结冰了,但海水并没有结冰,他猜想:可能是海水中含有盐,导致凝固表格 中美洲的尼加拉瓜,洪都拉斯,萨尔瓦多,巴拿马,哥斯达黎加,厄瓜多尔,这些国家经济怎么样? 海水会不会结冰?如果不会结冰那为什么南极和北极会结冰? 某物质的密度是105kg/m3,该物质的状态是?a.固态 b.液态 c.气态 d.无法判断额,不好意思啊.密度是1.5kg/m3啊 澳大利亚西海岸的气候和美国西海岸的气候类似吗?还是说南北半球的洋流有很大差异,导致气候截然不同.还有就是澳大利亚的那个地区与美国的加州气候类似.珀斯和悉尼哪个城市的气候会更 海水为什么不会结冰吗? 什么状态的物体密度大 固态还是液态还是气态 泰国,新加坡,新西兰,澳大利亚,科威特,秘鲁,智利名称的原意
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn