我想实现的功能:预览时可以看到,但打印时不打印出来。内详!100分! (100分)

  • 主题发起人 主题发起人 SEVN
  • 开始时间 开始时间
S

SEVN

Unregistered / Unconfirmed
GUEST, unregistred user!
比如一个表格,预览的时候看到表格和表格里的内容,但打印的时候只打印表格里面的内容
但不打印表格。
实际情况是这样的:客户的单据都是印刷好的,上面有表格,需要打印的只是表格里面的内容。
但是打印之前需要一个预览,预览时看到的应该和打印出来的单据一样。
所以在预览时要看到表格,但打印时只要把内容打印到已经印刷好的表格上。
也就是套打。
 
例如,在QuickReport的BeforePrint事件中删除表格。
或在BeforeReview中创建表格
 
用frstreport
將preview 與打印分開,在打印前將部分組件的visible設為false即可!
 
在写预览时,写全部;打印时将不要项的数据集的列设为不可见!
 
搞不懂你要实现这种功能干什么????
“所见即所得”是WINDOWS打印得基本标准,你弄“所见非所得”干什么?
 
吧表格线设成白色
 
设计两个报表,一个供打印时使,另一个供御览时用。
 
打印时只要把 PRINT 属性设为 .F.
 
在BeforePrinter方法中写下各种变量数据的进行初始化。
 
在打印之前去掉表格!!
在beforeprint事件中操作!!
 
在beforeprint中将visible设为false.
 
密切关注!
 
各位兄台,你们说的我都试过,还没成功呢,不知有何高见?
敬请指点迷经!
 
设置一个全局变量。
RunTimes: Integer;
在调用QuickReport以前初始化RunTimes:=0;
在他的BeforePrint里面判断打印次数。
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
if RunTimes = 1 then
begin
表格名1.Enabled := False;
//列出不不打印的控件
end;

RunTimes := RunTimes + 1;
end;
 
多人接受答案了。
 
后退
顶部