以前有做过,还得找,好像QuickRep的很简单,不难!
打印
procedure TMainForm.PrintClick(Sender: TObject);
begin
if Report = CompositeReport then
begin
QRCompositeReport1.Print;
end else
Report.Print;
end;
预览
procedure TMainForm.PreviewClick(Sender: TObject);
begin
if Report = CompositeReport then
begin
QRCompositeReport1.Preview;
end else
Report.Preview;
end;