以前有做过,还得找,好像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;
打印
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;