如何自己做报表打印？(100分)

S

snow

Unregistered / Unconfirmed
GUEST, unregistred user!
我觉得Delphi中的Quick Report不好用，想自己做报表打印，但有两个问题不能
解决：
1、如何实现打印预览？
2、如何实现打印报表时自动缩放？（即：在纸张的宽度小于要打印的宽度时，
自动缩小字号与表格宽度，象用友工资管理的报表打印一样）
 
王寒松大虾的竹叶上有一个报表控件
www.badegg.net
delphi.lele.com.cn
试试吧，我没用过！
 
我也在想类似问题：如果把报表生成为HTML格式，就可以索性通过IE来实现
打印和打印预揽。
首先，先写个HTML的文件，中间可以加个TAG，用于插入数据的。
然后，编个程序，用TQUERY来读出数据。
根据读出的数据，插入HTML文件中的TAG内。
然后，再用TWebBrowser来打印（好象不能打印预揽）
由于HTML可以有客户自己设计，这样，就能实现客户自定义表格格式。
可惜现在时间不多，老婆孩子一大堆的事儿……
 
歪就歪:
一起做好吗?

 
请继续
 
用王寒松的ereport控件，非常好用。
 
你试一试这个<a href="http://www.zg169.net/~randolph/pao23s.zip">PrintAtOnces2.3版源代码及新的例子</a>
 
王寒松的ereport控件怎么用？
 
如果把报表生成为HTML格式，表格上的网线和斜线不易处理或复杂化
我觉得倒不如试一试CELL控件或F1BOOK1。
 
我用Stringgrid来存数据打印表线及自动压缩表的宽度已完成目前表格的一行打印两行或更多行文字还没处理有机会多讨论讨论。
 
做预览:
用TmetaFile,窗体上放一个image
metafile:=Tmetafile.create;
metafilecanvas:=TmetafileCanvas.create(metafile,0);
报表打在TmetafileCanvas上:
YouPrintProcedure(MetafileCanvas);
MetafileCanvas.free;
把metaFile送给image:
image1.picture.metafile:=metafile;
大概就是这样

 
为什么没有人理我？
 
用excel
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
急急急！报表为何不打印！(100分)
回复
10
查看
115
f-h-s
F
P
在打印一张报表之前，先打印另一张报表（封面），如何实现？(30分)
回复
6
查看
105
tayancom
T
C
很有挑战的题目，怎样动态打印报表，打印一个DBGrid中的数据，可以调节字段所占宽度(20分)
回复
5
查看
111
yihui
Y
M
很简单的报表打印问题，大虾们请帮帮忙(50分)
回复
3
查看
140
missqiao
M
顶部