现在已装上这个软件了,可还是实现不了该功能,代码如下。 var myreport:TppReport; begin if savedialog1.execute then begin if (sender as tbutton).name='button1' then myreport:=ppreport1 else myreport:=ppreport2; myreport.AllowPrintToFile := True; myreport.ShowPrintDialog :=False; myreport.TextFileName := SaveDialog1.FileName; myreport.DeviceType := 'ExcelFile'; myreport.Print; myreport.ShowPrintDialog :=True; myreport.AllowPrintToFile := False; end;
var myreport:TppReport;
begin
if savedialog1.execute then
begin
if (sender as tbutton).name='button1' then
myreport:=ppreport1
else myreport:=ppreport2;
myreport.AllowPrintToFile := True;
myreport.ShowPrintDialog :=False;
myreport.TextFileName := SaveDialog1.FileName;
myreport.DeviceType := 'ExcelFile';
myreport.Print;
myreport.ShowPrintDialog :=True;
myreport.AllowPrintToFile := False;
end;