现在已装上这个软件了,可还是实现不了该功能,代码如下。
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;