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

  • 主题发起人 主题发起人 snow
  • 开始时间 开始时间
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;
大概就是这样

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

Similar threads

不
奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit - 不得闲
回复
0
查看
882
不得闲
不
S
[FMX] 在 FMX 中手动控制打印机打印内容
回复
0
查看
881
swish
S
X
kbmmw 的HTTPSmartService 上传文件到服务器端 - xalion
回复
0
查看
943
xalion
X
S
[FMX]在程序中使用已有的样式做自己需要的渲染
回复
0
查看
767
swish
S
D
[原]Delphi FireMonkey如何翻译AndroidSDK中的Java类为JNI单元
回复
0
查看
941
DelphiTeacher的专栏
D
后退
顶部