我已经作出来了,可是在做的时候预览是好使的,但是用按钮想让他浏览及打印的时候,一点按钮就会一闪就不见了,什么都不显示?这是怎么回事??button事件如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
frreport1.Preview := preview1.frPreview1;
if frreport1.PrepareReport then
begin
frreport1.ShowPreparedReport;
frreport1.PrintPreparedReportDlg;//显示打印对话窗口
end;
end;
begin
frreport1.Preview := preview1.frPreview1;
if frreport1.PrepareReport then
begin
frreport1.LoadFromFile('d:/report3/baobiao.frf');
frreport1.ShowPreparedReport;
frreport1.PrintPreparedReportDlg;//显示打印对话窗口
end;
end;
应该这样就对了,可是还是有问题,为什么运行第一次点按钮的时候不出现打印框而只是一闪