???undeclare identifier :'Custom' ( 积分: 50 )

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #1

1、
我使用Quickrep做报表，设定paper size时，我在report settings 中设定了custom,定义
了width,length,但是打印出来时，不是按照我的定义的长度、宽度打印出来的。当我将
paper size设定为A3时，能按照A3的标准打出。 将custom中的width,length定义为A3的
width,length时，就不行！
不知为何？
（以上是在属性页和 report settings上设定的）
2、
当我在代码中写：
form_dwpj_printer.QuickRep1.Page.PaperSize:= Custom ;

form_dwpj_printer.QuickRep1.Page.Length:=200;
//改变长度
form_dwpj_printer.QuickRep1.Page.Width:=290;
报错：undeclare identifier :'Custom'
我在uses中添加QuickRep
报错：“File not found QuickRep.dcu”。
why??

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #2

1、
我使用Quickrep做报表，设定paper size时，我在report settings 中设定了custom,定义
了width,length,但是打印出来时，不是按照我的定义的长度、宽度打印出来的。当我将
paper size设定为A3时，能按照A3的标准打出。 将custom中的width,length定义为A3的
width,length时，就不行！
不知为何？
（以上是在属性页和 report settings上设定的）
2、
当我在代码中写：
form_dwpj_printer.QuickRep1.Page.PaperSize:= Custom ;

form_dwpj_printer.QuickRep1.Page.Length:=200;
//改变长度
form_dwpj_printer.QuickRep1.Page.Width:=290;
报错：undeclare identifier :'Custom'
我在uses中添加QuickRep
报错：“File not found QuickRep.dcu”。
why??

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #3

那就看系统环境里面设置了没有
Tools－－Environment Options－－Library的Library Path

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #4

兄弟要这样：
uses
qrprntr;//custom的定义在这里面

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #5

uses
qrprntr;一样报错。undeclare identifier :'Custom'

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #6

我在计算机里查找QuickRep.dcu文件，竟然没有找到。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #7

uses qrprntr;后就不需要uses quickrep了，晕头转向中~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #8

hongxing_dl,
一样报错。undeclare identifier :'Custom'
另外，能告诉我第一个问题的原因吗？

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #9

自定义的纸张需要自己动态在程序里指定一次
我的测试代码,没有出现你说的问题，custom就定义在qrprntr这个单元里面：
uses
qrprntr;
///////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
quickrep1.Page.PaperSize := custom;
QuickRep1.Page.Length:=200;
QuickRep1.Page.Width:=290;
end;

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #10

能将你的的测试代码发我一份测测吗？
谢谢
pingbaoshii@163.com

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #11

把你的发给我吧，我给你看看,我的代码很简单，就是上面那几句
hongxing_dl724@163.com

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #12

好了，是我搞错了,解决了。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #13

汗ing..................晕ing........................

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #14

真不好意思，hongxing_dl,
我献丑了
现在我不明白的是：
我的票据长度是120mm左右，宽度是260mm左右。
1、但是，当我写
form_dwpj_printer.QuickRep1.Page.PaperSize:= Custom ;

form_dwpj_printer.QuickRep1.Page.Length:=120;

form_dwpj_printer.QuickRep1.Page.Width:=260;

预览时，是我设的长宽，但是打印出来的， 右边50mm左右没打上。
2、我在程序中写form_dwpj_printer.QuickRep1.Page.PaperSize:= A3 ;
打印、预览均是按照A3规格。能够打印完整。
3、但是，当我改成
form_dwpj_printer.QuickRep1.Page.PaperSize:= Custom ;

form_dwpj_printer.QuickRep1.Page.Length:=420;
//同A3一样的长度
form_dwpj_printer.QuickRep1.Page.Width:=297;
//同A3一样的宽度
预览时，是我设的长宽，A3规格，但是打印出来的， 右边50mm左右没打上，
同1、的打印效果一样。
怎么回事？
还得麻烦您。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #15

那你就设置边距就可以了：
form_dwpj_printer.QuickRep1.Page.LeftMargin := xxx;左
form_dwpj_printer.QuickRep1.Page.RightMargin := xxx;右
form_dwpj_printer.QuickRep1.Page.TopMargin := xxx;上
form_dwpj_printer.QuickRep1.Page.BottomMargin := xxx;下

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #16

我发现不是这样的问题
只要是使用custom格式，就不行
下面是
form_dwpj_printer.QuickRep1.Page.PaperSize:= Custom ;
form_dwpj_printer.QuickRep1.Page.Length:=420.0;
form_dwpj_printer.QuickRep1.Page.Width:=297.0;
form_dwpj_printer.QuickRep1.Page.LeftMargin := 9.0;
form_dwpj_printer.QuickRep1.Page.RightMargin := 8.0;
form_dwpj_printer.QuickRep1.Page.TopMargin := 26.0;
form_dwpj_printer.QuickRep1.Page.BottomMargin := 5.0;
预览正常，打印不完整。
但只要这一句，替代上面的7行，就一切正常了
form_dwpj_printer.QuickRep1.Page.PaperSize:= A3
？？

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-13

• #17

我知道了，是因为QuickRep3.0的问题
升级为QuickRep3.5后就OK了!
thank you,chenybin
hongxing_dl