//打印按钮的时候动作
procedure TForm1.Button1Click(Sender: TObject);
var
AppPath: string;
begin
AppPath := ExtractFilePath(Application.ExeName);
try
frxReport1.LoadFromFile(AppPath + 'Operator.fr3', True);
Application.CreateForm(TFrmPrintView,FrmPrintView);
frxReport1.Preview := FrmPrintView.frxPreview;
except
on e: Exception do
begin
Application.MessageBox(PChar('打印出现异常,请重试!或与系统管理员联系!'), '提示', MB_OK + MB_ICONERROR);
Exit;
end;
end;
Try
frxReport1.ShowReport;
FrmPrintView.ShowModal;
Finally
FrmPrintView.Free;
FrmPrintView := Nil;
End;
end;
在FrmPrintView窗体中放置一打印按钮,控件frxPreview,单击事