Was mache ich falsch? Wenn ich meine Reports erstellen lasse ändert das Programm die Report Datei so, dass ich sie nicht mehr öffnen kann...
Hier mal ein Teil des source:
for i := 0 to qPDF_alle.RecordCount - 1 do
begin
//Filtern !!!kann man sich für dieses Problem wegdenken!!!
Inhalt:=qPDF_alleSTAMM_KONTR.AsString;
if Inhalt<>'' then
gridTrades.ColumnByName(gridTrades.SelectedField.F ieldName).FooterValue:=Inhalt;
FilterAufFooter;
//pdf
datei:=('W:\...\...\PDFs\'+ qPDF_alleSTAMM_KONTR.AsString +'.pdf');
rvproject1.Engine:=RvNDRWriter1;
rvproject1.SelectReport('Report2',true);
rvproject1.Open;
rvproject1.ExecuteReport('Report2');
application.ProcessMessages;
meinedatei:=tfilestream.Create(rvndrwriter1.FileNa me,fmopenread);
try
rvrenderpdf1.printrender(meinedatei,datei);
finally
meinedatei.free;
end;
qPDF_alle.Next;
end; //for
Hier mal ein Teil des source:
for i := 0 to qPDF_alle.RecordCount - 1 do
begin
//Filtern !!!kann man sich für dieses Problem wegdenken!!!
Inhalt:=qPDF_alleSTAMM_KONTR.AsString;
if Inhalt<>'' then
gridTrades.ColumnByName(gridTrades.SelectedField.F ieldName).FooterValue:=Inhalt;
FilterAufFooter;
datei:=('W:\...\...\PDFs\'+ qPDF_alleSTAMM_KONTR.AsString +'.pdf');
rvproject1.Engine:=RvNDRWriter1;
rvproject1.SelectReport('Report2',true);
rvproject1.Open;
rvproject1.ExecuteReport('Report2');
application.ProcessMessages;
meinedatei:=tfilestream.Create(rvndrwriter1.FileNa me,fmopenread);
try
rvrenderpdf1.printrender(meinedatei,datei);
finally
meinedatei.free;
end;
qPDF_alle.Next;
end; //for
Comment