[Delphi]如何用比较简单的方法实现所见即所得的打印?就像office那样。。。(50分)

  • 主题发起人 主题发起人 g00
  • 开始时间 开始时间
G

g00

Unregistered / Unconfirmed
GUEST, unregistred user!
直接打印from的效果不好,估计是按照图形方式打印的原因吧。。。
用报表不够灵活,很多没有现成的实现,自己写报表组件太麻烦了。。。
 
自己写报表组件太麻烦了???
当然麻烦啦,
但自己写可以缩放显示和打印的控件就不难,但没有通用性不强,
原理:
procedure AControl.drawTo(ACanvas: TCanvas);
begin
//写你的代码,
ACanvas.Rectangle(ACanvas.clipRect);
....
end;

procedure AControl.paint;
begin
DrawTo(canvas);
end;

procedure AControl.print;
begin
DrawTo(printer.canvas);
end;
这样,显示什么就打印什么,我写了两个这样的控件。很好用
 
xuxiaohan 能否让我也用用你得控件啊?
谢谢了啊. hellowbh@163.net
 
当然我可以给你,只是对你来说,仅仅是参考而已!
邮件已经发送!
请查
 
我也要一份:geoffrey02003@yahoo.com
谢谢!!!
 
这根本不是通用的控件,对大家有用吗?
 
有用 liujh_ty@163.net
 
请送一份来学学 ebxca@163.com
 
ExpressPrinting System控件
所见即所得的打印,挺不错的
 
wangxian11:
ExpressPrinting System 我做过测试,根本算不上所见即所得。。。
有些控件打印不出,有些线段会变短。。。
期待哪位高人解决这个问题。。。
 
xuxiaohan:也给我一份可以吗?
 
xuxiaohan:也给我一份可以吗?
 
xuxiaohan:也给我一份可以吗?
nanyehy@sohu.com
 
等得好辛苦!!!
geoffrey02003@yahoo.com
 
gOO
不通用的,我现在给你,你可以参考!
 
我用report builder实现了dxDBGrid的即看即得的列印功能
参考作品:LongTech 3000 人力资源管理系统 XP
http://bbs.zglong.com/
 
bigwell:
你不是骗人么!!!demo根本用不了,感觉做得并不怎么样!!!
 
我现在正在用着呢。
 
xuxiaohan兄:您火气太大了吧!
您看清楚,我是说bigwell呢!
您真诚的帮助,我感谢还来不及呢~
祝您:新春愉快!
 
g00:
非常非常的抱歉,是我错了,对不起啦
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部