打印问题(100分)

溪

溪西

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #1

如何在delphi的一个form表单里打印一个表格 举个例子吧：
比如说打印以下表格：
档案号 厂家名称
开户行 法人代表
帐号 税号
电话 邮编
联系人 传真
地址
（这里显示不出表格的样子，你们就想象一下上面是一张表格吧）
在delphi程序里我把它做成录入界面：即由label和edit组成， 然后我想就在form里加一
个打印按纽，就能使form表单上的label和edit转化成 上述表格打印出来，我不要在中间
步骤（即先在报表里画好连接好，然后打印出来。也就是说只想在按纽里写好代码，用
控件点击它就能打印出来。）

答对，等我验证后我会根据答题前后给分的。

 

浪

浪里白条

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #2

做报表怎能这样呢？
要用tquickreport

 

W

whf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #3

ReportMachine中的FormReport可以做到
http://reportmachine.delphibbs.com

 

G

GanQuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #4

就放个QuickRep到form上。
上面放个QrBand，Band上放一些QrLabel
按照你的格式调整好quickRep的大小（custome size），
Qrlabel的Caption就设成档案号， 厂家名称之类的，格式调整好。
每个QrLabel后面再跟个Qrlabel，用于赋值。
按button之后，动态给QrLabel赋值。
QrLabel1.Caption := '1001';
QrLabel2.caption := '某某厂';
.......
QuickRep.Print;
赋值后直接调打印就行了。如果要画表格就用Qrsharp照格式画就行了。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #5

你的格式因定不固定,如果固定就在QR中设计成你发的样子,用
qrshape和qrlabel,然后把内容填好,按打印时直接把label的值
赋给qrlabel就行了.

 

B

blueboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #6

我有一个能直接打印form 上的 label、edit、stringgrid、dbgrid等内容的控件，可
以预览、分页等，要的话我E一个给你。

 

溪

溪西

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #7

对于这个问题，如果直接用whf所说的做的话，好象打是打的出来，不过好象没有我说的
有那种表格的形式。如果大众化一点直接用TQuickreprot的话好象又太麻烦了，可不可
有更好的方法啊？？？

 

W

whf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #8

是不是没有表格线？你可以在Form用Shape拼凑出表格线来，用FormReport就可以打印出表格
来了。