如何制作固定格式的报表--(格式固定,数据填充)!(20分)

如何制作固定格式的报表--(数据填充)!----难题!!??
报表的每一页都是统一的固定格式,类似于--固定格式套打!!--是Master/detail类型!
另外,如何在报表预览之前定制报表,什么事件会发生.我用了很多事件,都没起作用!!??

可以用reprot machine，事件，可以用onbeforeprint等等。
www.pcjingning.com

可以用excel，easygrid等等。
如果是QR。我一般把代码写在创建QR的代码后面。如：
QRep_Contract := TQRep_Contract.Create(Self);
QRep_Contract.QRLabel8.Caption := Combobox1.Text;
//供方
QRep_Contract.QRLabel10.Caption := Label17.Caption;
//工程名称
if Combobox6.Visible then
QRep_Contract.QRLabel16.Caption := Combobox6.Text //合同编号
else
QRep_Contract.QRLabel16.Caption := Edit1.Text;
//合同编号
QRep_Contract.QRLabel12.Caption := Edit2.Text;
//签订地点
QRep_Contract.QRLabel15.Caption := FormatDateTime('DDDDDD',
DateTimePicker1.Date);
。。。。。
try
try
QRep_Contract.Print;
except
Application.MessageBox('连接到打印机时出现错误，请确认打印机设置无误，默认打印机可以打印。', '打印错误', Mb_Ok + Mb_IconInformation);
end;
finally
QRep_Contract.Free;
end;

多人接受答案了。