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

用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)却不在之列,要想使打印机正常工作和程序不出错,你还是老老实实手工给它加上吧。

VB的OPEN对话框控件图示功能扩充 VB通用数据表格输出程序的设计 VB网格中输入数据 VB应用程序中打印条形码的两种方法 VB与Windows资源管理器互拷文件 VB中DOS文件名与长文件名的转换 VB中的Unicode 和 Ansi 格式 VB中如何实现文本查找功能 VB中自制文件搜索器 Windows 初始化文件的修改 -VB资料 Word 97与WPS97的完美结合 -VB资料 比较两个文件-VB资料 采用递归算法删除带有多级子目录的目录-VB资料 菜单项的动态装入 -VB资料 处理加了密码的MDB文件-VB资料 VB创建临时文件 从公共对话框控件中提取多个文件名称 -VB资料 从全路径名中提取文件名 -VB资料 打印MsChart之类的控件 -VB资料 谈谈在VB6.0中如何使用资源文件进行编程 动画图像分解在VB动画设计中的应用 多重文档界面设计方法-VB资料 恢复回收站中的文件 -VB资料 VB获得位图文件的信息 VB获得文本框中光标所在行的内容 VB获取程序工作路径的方法 VB获取文件或文件夹属性 基于VB的通用折行打印程序 基于VB和EXCEL的报表设计及打印 VB建立多级目录 -VB资料 VB建立快捷方式-VB资料 PreparedStatement为什么使用不了参数? 请教,在OUTLOOK中如何得到发信人的E-Mail Address 江苏 淮安的请进 建议程序员杂志对大连的程序员作一个调查 关于 New Collection 类型数组和列表框的问题(急!) 我現在遇到一個怪問題 怎么又冒出个Bug? 一个简单的数据库查询问题!50大洋送上!!急 谁能告诉我,反黄软件的原理是什么?? 请问如何读出一个dbf文件 如何从RM格式的电影中提取音乐? 怎么样 才能把一个数组转化为一个字符串啊 !!!请问我写的多线程CSocket连续接受用户请求的程序为什么不对?在线等。。/。 关于 New Collection 类型数组和列表框的问题(急!) 安装的中文版vs.net,调试c#程序时,提示不能调用类库,为什么? mstcpip.h哪儿有? 菜鸟的问题,请帮忙 .c and .cpp 一个关于mfc兼容性的问题? 翻译高手请进...... 求教:关于mp3算法的问题 这里的狗屁文章很多,不过看得让我笑个不停 RichTextBox右对齐怎么做? 关于大数据的问题? 关于CStringArray的使用问题???? lpd好麻烦!!! 关于Dependency的问题 有谁做过排课系统吗?具体的算法。。 我能单步跟踪么? 有没有高手指点一下,游戏需要OpenGL,怎么办? 请帮帮我!我用query+Updatesql更新时出现问题 一个全新的关于.net技术的网站--XML中华网(www.xmlchina.net)! 想让JLabel显示的字是从上到下的。该怎么办? 关于相同记录不能存在的问题 ?消息响应问题 好难的问题!!! 菜鸟有道数组问题请教!!!!!!help,help 关于CStringArray的使用问题???? !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 好东东 !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! 请教高手,给高分!!!!!! 难呀,很多高手都说难!!!! 屏蔽右键??如何做。。。。。 有简单的访问StoredProcedure的方法吗? 简单问题:redhat linux7.2 支持中文输入吗? 谁有ASP上载组件的源代码下载 !!!请问如何通过VB控制来将word文档中的1个图片替换为另1个图片!!!!! Label控件拖放时,拖放结束(放开鼠标)触发哪个事件?急... 技术问题中的非技术问题》》》》》 请大侠看看这个怎么实现比较好!读取文件的一部分。。。 CuSO4·5H2O晶体是电解质吗? 同分异构体的类别异构高中范围里的类别异构 碳酸钙转化为氯化钙一定要加盐酸吗?如题 CuSO4·5H2o晶体放如浓硫酸中,后变白.这到底是体现浓硫酸的脱水性还是吸水性啊? 氢氧化钠与硅酸钠会反应吗但据说会生成偏硅酸钠,这是否可靠 水玻璃是什么物质 除去氯化钙中的碳酸钙 用什么办法 过碳酸钠和5水硅酸钠反应吗?和氢氧化钠呢?RT大哥……是过碳酸钠…… 春秋战国时期的故事我要几个*简短*的*有趣*的!一定要有趣有趣有趣! 除去碳酸钙中的氯化钙为什么要用水! 越南语里加油的发音是什么? 春秋战国时期的故事有什么?无 水银金,又称汞金!现在我想把金烧出来,请问有什么方法即可回收汞,又可以烧干净金呢?毕竟汞有毒,回收即可避免中毒,又可以回收水银!水银也不便宜啊,更重要的是买也比较难买到,想循环利用 越南语欢迎的发音是什么?急 硅酸钠的反应硅酸钠都和啥子东西在啥子条件下反应生成啥子啊?除了和酸反应生成硅酸,还和别的反应么?呃……玻璃的主要成分是硅酸钠、硅酸钙和二氧化硅…… CaCO3+NAOH=CaO+NaHCO3存在吗? 英语翻译()内的内容不用翻译,不一定非要逐字翻译,意思一致即可.1.能便宜一点吗?//// 便宜点!/// 最便宜多少钱?2.(询问旅店价格时)住旅店一晚上多少钱?3.请问这附近哪儿有汽车站?4.请问 (越南语)anh dung buon roi se co mot ngay anh se ngaq duoc mot nguong con gay tot hon em deq hon ,anh bi te co dau khong .di khang bac si thu co bi chi khong .te co dau hay viet cho em biet em nghe anh bi te em rat buon 为什么甲苯可以使液溴褪色,而不能使溴水褪色,是萃取优先与化学反映吗? 越南语里越南的发音是什么?急 春秋战国的故事 战国时期的“士”是指哪一类人,举出几个历史上有名的“士”,说说他们的故事不要很长,而且不要到“相关的问题”上去找,因为我觉得那的答案不太好,好长,又不是很符合题意.(时间紧迫啊 英语翻译kongdong dangdong dingdong kuihongkongkuangdangdong sikong dangdongmaihitinghongkui dongbaladuo空洞 当东 叮咚 亏红空旷当东 司空 当动脉hi挺红逵懂巴拉多 硅与什么反应生成硅酸钠 急!~~~~~碳链异构,官能团位置异构,官能团异构有何区别 古代文明为什么大都在两河流域 古代文明为什么大都在两河流域?四大文明古国在什么样的地理环境中发生和发展?古代罗马和古代雅典奴隶制的共同点是什么? NgocBinh说Đảo song tử tây là của VIỆT NAM 正丁烯和异丁烯到底是属于位置异构还是碳链异构 发源于两河流域的古代文明是A、埃及文明B、西亚文明C、印度文明 502胶水把剪刀粘住了有什么解决办法吗?今天用502的时候用剪刀把胶水前面剪了一个开口,但是没有想到的是胶水顺着流到剪刀上来了,等我发现的时候剪刀已经被502粘得很牢固了,请问有什么办 怎样除去CaCO3中的CaCl2 碳链异构的问题其中有四句话:碳链由长到短;支链由整到散;位置由心到边;排布由邻到间.这里面的第二句“支链由整到散”;和第四句“排布由邻到间”我不是很明白, 为什么亚洲的印度河,黄河和两河流域都是世界古代文明的发祥的?注意用地理知识回答 CaCl2中含有CaCO3杂质 如何除去 出售泡花碱即是水玻璃请有需求单位给我留言! 传统的农业灌溉方式我急 孙中山为祖国作出了怎样的贡献?求大神帮助..? 苯能使溴水还是液溴褪色?溴水与液溴有什么区别? 中国古代农业的发展,(包括农具,灌溉技术,农作物的种植,和经济中心的转移,重农抑商) 孙中山一生为祖国贡献什么 高二有机物,哪些能和溴水、高锰酸钾反应褪色、原因是什么?那些萃取褪色? 碳酸钙怎么转化为氢氧化钙 汞的颜色是什么? 关于碳链异构注意到这么一点,甲基不能接头,乙基不能接倒数第二,那是不是意味着,碳链是不是以C多的一条碳链为主链? 碳酸钙和氧化钙和氢氧化钙之间相互转化的关系 金属汞是什么颜色的 类别异构 没有违背同分异构 结构相似的原则吗? 战国时期的士是指哪一类人我们的语文课题 化学:汞是什么颜色? 战国时期的士指哪一类人,举出一些历史有名的士,谢还要举出士的一些故事, 谁知道战国时期的士啊?战国时期著名的士有谁啊?请用一句话概括 基于上题的回答请问CuSO4.5H2O是金属晶体却为为何不能导电呢? C5H12的异构类型是什么?和异构体种类? 关于战国时期的士的特点士在战国时期是一个特殊的阶层,这个阶层从地位上看是______的阶层,他们的特点是______ CuSO4.5H2O能导电么,是电解质么澄清石灰水能导电?是电解质么 高中化学同分异构体是否考虑立体异构 战国时期的士的故事是要士的故事 怎样得到CuSO4·5H2O晶体? 高中化学的同分异构体中有空间异构之说吗? 把氯化钙转换成碳酸钙?化学方程式就行了``谢谢了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘