Printer是什么?为何我用不了?(10分)

  • 主题发起人 主题发起人 CPU风扇
  • 开始时间 开始时间
C

CPU风扇

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样才能用?谢了
 
use printers;
是打印机的全局对象,只有一个
 
可以用了~~
能否简单告诉我怎么用。比如我想打印 “我是中国人” ,怎么写?
 
if(PrintDialog.execute = true) then
begin
printer.begin
doc;
printer.canvas.textout(10,10,'我是中国人');
printer.enddoc;
end;
PrintDialog//是打印对话框,在 Dialog 面版 里。
你可以在网上找一些资料看看,但是今天google不能用了。。。。
 
在Printer中,有一个TPrintet对象, 在这个对象中, delphi为你封装了Windows的打印引擎, 原来需要你亲自去做的一些工作(调用很多api函数, 进行底层操作)都由它为你做了,你只需要调用它提供的一些方法, 访问它的属性就可以编写出专业的打印程序, 学会了它, 你可以彻底放弃用Qreport组件了。
属性如下:
Canvas; 当前页的画布。 这可是一个重要的属性, 运用这个画布的一些属性和方法, 你就可以象在作画一样把你想打印的东西画上去。 一执行打印, 画的东西就打印出来了。
PageWidth,PageHeight,PageNumber:顾名思义, 就能明白。前两个都是以像素计算的。
为了在屏幕上看到的和打印出来的相一致, 还要进行分辩率的转换, 因为打印机和显示器的分辨率是不一样的, 就用PageWidth、PageHeight分别和屏幕的宽和高(当然也是像素计的)之间来转换, 不要忘了1英寸=2.54厘米。 OK!
方法:
begin
Doc, EndDoc:开始、终止一个打印作业。
NewPage: 强迫打印机开始打印新的一页。
当然还有很多属性和方法, 可以去看联机帮助。
最后祝你写出专业的、自定义的打印程序!



 
后退
顶部