请教：如何制作不分页的报表？每行数据间最好有分隔线。　　　 　　 　　　 (100分)

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #1

请教：用delphi如何制作不分页的报表？每行数据间最好有分隔线。
我好像找不到不分页的纸张类型，自定义的话（把length设为很大）就会把页脚也弄到最下面了，所以还是不行。那位高手指点一二？

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #2

连续打印, 基于Windows的打印实现起来有难度,
是 windows的 API 打印只支持页面的方式, 及处理完一页才输出一页
我想你是希望象DOS下那样使用LQ1600之类的打印机吧？

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #3

有一个办法是直接向 并口 输出字符，但这样做 对于格式控制挺麻烦的
没有现成的控件
代码如下
Var
f :Text ;
begin

Assignfile(f , 'PRN');
Reset(F);
writeln(f , '你要的字符串1','你要的字符串2') ;
closefile(f);
end ;
我以前的做法是先将所有的打印字符，输出到一个文件中，
然后将这个饿文件输出到并口，这样比较好调试

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #4

[]啊？我的天，要这么干起来可真是麻烦透顶了啊！客户希望能用带孔的纸来不分页打印数据库中查询出的数据，要是自己控制格式真是要累死了！：（

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #5

鼓动他们买个激光打印机好了，又快又没噪音
对他们说有利于他们的身心健康
你也不用这么麻烦了：）

 

A

andykwok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #6

呵呵，连续纸要自定义纸张大小，为你连续纸的大小，可要量得很准啊！^&^

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #7

eagleblue老兄你厉害！就是不知道他们肯不肯啊，呵呵 ~*~
andykwok,自定义可是不太好啊

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-03

• #8

这种报表没多少张吧，其实也不算太麻烦 慢慢来吧！
反正是没别的办法了：）
如果报表太多的话，自己写个控制格式的类，让程序简化一下好了

 

E

eagleblue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-21

• #9

这个问题该结束了吧？

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #10

虽然一直没有好办法，也难得各位捧场
挂了这么多天，也是该结束了。：（
把分分一下吧