求打印预览源代码！(60分)

就剩60分了，全给了。我要做一个窗体打印的预览程序，
想找个例子参照。

在一个窗体 CommRepForm（CommRepUnit）上放个TQuickRep和Query控件；
将QuickRep1的DataSet设为Query1；
另一个窗体Unit中按钮事件：
if CommRepForm = nil then
Application.CreateForm(TCommRepForm, CommRepForm);

query1.close;
query1.sql.clear;
query1.databasename := MyDatabaseName;
query1.sql.add('Select * From Mytablename');
Query1.Prepare;
query1.Open;
CommRepForm.quickrep1.preview;
/////////////
procedure TCommRepForm.QRSysData2Print(sender: TObject;
var Value: string);
begin
value := '第' + value + '页';
end;
///////////////
procedure TCommRepForm.QRDBText3Print(sender: TObject;
var Value: string);
var
x: integer;
xbytetype: TMbcsByteType;
begin
x := 66;
if length(value) > x then
begin
xbytetype := bytetype(value, x);
if (xbytetype = mbLeadByte) or (xbytetype = mbsinglebyte) then
insert(#13, value, x)
else
insert(#13, value, x + 1);
end;
end;

虽然你的回答对我一点用处也没有，我还是把分给你！