QReport问题，急(100分)

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #1

我用QReport打印票据，预览时正常，但打印时打印机没有反应，查看打印机状态
显示为“本地下层文档，正在从后台打印“然后就什么也没了，请教各位是什么原因？

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #2

怎么没有人回答？没说清楚吗？

 

X

xjc_first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #3

是所有報表都這樣還是只有一個文件

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #4

我刚刚作了一个表，测试的时候就是这样

 

S

soul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #5

打印其他文档有问题吗？
是否是qreport中打印机设置有些问题。

 

Y

yexiaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #6

你用的是espon的打印机吗？
我在expon打印机上碰到过这样的问题，是驱动程序的问题，delphi天生和espon驱动程序
有矛盾，去下载最新的驱动试试，我这样解决了问题

如果不是就可能是默认页面大小的问题，好像是把windows的默认自定页面大小改成
和qreport中的一样就可以了，这个我没试过，只是在以前的帖子上看到过。

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #7

我这是利盟的打印机，驱动没问题是原机带的，打印其他东西正常，我用NeedDate

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #8

我设置打印机后可以进行，但是有更好的解决办法吗？

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #9

procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin

MoreData:=False;
QRLabel1.caption:=copy(MainForm.Edit1.text,1,1);
QRLabel2.caption:=copy(MainForm.Edit1.text,2,1);
QRLabel3.caption:=copy(MainForm.Edit1.text,3,1);
QRLabel4.caption:=copy(MainForm.Edit1.text,4,1);
QRLabel5.caption:=copy(MainForm.Edit1.text,5,1);
QRLabel6.caption:=copy(MainForm.Edit1.text,6,1);
QRLabel7.caption:=MainForm.Edit2.text;
QRLabel8.caption:=MainForm.Edit3.text;
QRLabel9.caption:=MainForm.Edit4.text;
QRLabel10.caption:=MainForm.Edit5.text;
QRLabel11.caption:=MainForm.Edit6.text;
QRPrinter.Progress := 100;
end;

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #10

你将MoreData设为True看看，这样表示后面没有了。你看看我的一段代码。
procedure TFrmQrt.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin

if not QPrn.Eof then

MoreData:=True
else
if QPrn.Eof then

MoreData:=False;
if MoreData then
begin

GetStyleData;//这是给各个QRLabel赋值的过程
QPrn.Next;//数据库到下一笔,每笔都有这么一个过程
end
else

begin

QuickRep1.QRPrinter.Progress := 100;
QPrn.First;
end;

end;

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-23

• #11

可是资料上说要mordata设为false才表示后边没有了,这个变量表面意思也是这个吧

 

F

feishu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #12

接受

 

Z

Z_JJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #13

我也遇到过此类情况，后来发现是打印机的驱动程序不配套，虽然其它程序（写字板、记事本）
等能正常打印，但是DELPHI的QReport就是不行， 后还换了打印驱动程序就好了。
还有一种情况就是你的QReport的设置不正常，这些是很基础的问题， 你可以看看我网站上的文章