谁会打印这样的报表？？？(100分)

  • 主题发起人 主题发起人 yir
  • 开始时间 开始时间
Y

yir

Unregistered / Unconfirmed
GUEST, unregistred user!
字段1│数据1 数据2 数据3
────────────
字段2│数据1 数据2 数据3
────────────
字段3│数据1 数据2 数据3
────────────
字段4│数据1 数据2 数据3
　　　　　·
　　　　　·
　　　　　·
也就是一张表里有很多列，每一列有3行，打印报表的时候，列在左边，数据从左到右。
各位高手请帮帮忙
 
这也是我想知道的,用fastreport,或reportmachine可以实现这种样式的报表吗？
 
我帮你顶一下
 
用ekrtf控件做，可以打印成任意形式的word文档文件，不过编程比较罗索。
 
用这个控制可以FastReports，你可以试试！
 
用quickrep也能实现，代码放在onneetdate中
 
to tanapei
用quickrep也能实现，代码放在onneetdate中
具体在哪里？麻烦告知
 
这还不简单，使用TPrint类，使用循环：
procedure Prn;
var
i, j:integer;
begin
Printer.begin
Doc;
for i:=0 to 字段总数-1do
o
Printer.Canvas.TextOut(0,i*16,'字段i'+FloatToStr(数据2i)+FloatToStr(数据2i)+FloatToSTr(数据3i));
Printer.EndDoc;
end;
 
也可以如下：
procedure Prn;
var
i, j:integer;
begin
Printer.begin
Doc;
for i:=0 to 字段总数-1do
for j:=0 to 3do

if j=0 then
Printer.Canvas.TextOut(j*8,i*16,'字段i')
else

Printer.Canvas.TextOut(j*8,i*16,FloatToStr(数据ij));
Printer.EndDoc;
end;

原理是这样，要处理好还有很多的细节要处理。
 
看我的作品，就是使用TPrinter类来做的：http://www.delphibbs.com/delphibbs/dispq.asp?lid=2315604
 
现在ExpressVerticalGrid 3.0 Beta支持这种功能，将字段竖排
 
fastreport 或 reportmachine支持这种功能吗？
 
您必须登录或注册才可回复。

Similar threads

N
如何quickreport显示两个表(50分)
回复
6
查看
275
njcw666
N
史
报表中打印的问题！！！(50分)
回复
3
查看
191
zhilon
Z
C
很有挑战的题目，怎样动态打印报表，打印一个DBGrid中的数据，可以调节字段所占宽度(20分)
回复
5
查看
165
yihui
Y
天
打印自定义纸张出纸多，预览可以？谢。。。(100分)
回复
0
查看
166
天兵
天
L
我用delphi5.0+paradox数据库开发了一个应用系统，打印用quickreport,有一个数据表只有两个字段很短在报表上打印时太窄，我想用多列打印，但
回复
6
查看
203
LQJ5452182
L
后退
顶部