QuickRep1報表問題，高手請進(100分)

这种你可以去修改目录下的QR文件实现

hongxing_dl:
請寫一個實例發我信箱. fwcy2002@21cn.com
marco_hsu
怎麼修改？

我记得上次不是传了一个preview的例子吗??就是那个,没有了?
我再给你发一次..
其实上面app2001已经列出了自定义的所有原码了..
已发...请查收

TO:hongxing_dl
我想知道怎麼在print按鈕中寫入一些語句。上面的代碼好象也不能在print按鈕中寫入單擊事件。

例子收到没有?例子里就介绍了....
需要在quickrep的OnPreview里写
FormPreview:=TFormPreview.Create(Self);
try
FormPreview.QRPreview.QRPrinter:=TQRPrinter(Sender);
FormPreview.ShowModal;
finally
FormPreview.Free;
end;
就是将预览转移到自定义

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
frm: Tform;
begin
if Screen.ActiveForm = nil then
exit;
if not sameText(Screen.ActiveForm.ClassName, 'TqrProgressForm') then
exit;
frm := Screen.ActiveForm;
frm.Hide;
PrintReport := (application.MessageBox('确定打印吗?', '提示', MB_YESNO + MB_ICONQUESTION) = IDYes);
if PrintReport then
frm.Visible := true;
end;

end.

TO:hfghfghfg
你的的方法最好。簡單方便。
TO:hongxing_dl
你的EMAIL我還沒有看。謝謝你的大力幫助。有空請來廣東玩。
TO:app2001及其他人
謝謝各位!