[Rave] Vorlagen zur Laufzeit automatisch ausfüllen

[Archer]

Manchmal liegt die Lösung so nah.....

Im Prinzip habe ich es nach meiner Idee umgesetzt:

Jeder mögliche Antrieb bekam seinen eigenen Report mit je 2 Seiten.

Dann weiter mit Tip #41 von Nevrona: MultipleReports in single Print Job:

Rvproject1 übergibt an ein RvSystem
im 'OnPrint' event des RVsystems
dann folgender Code:

Delphi-Quellcode:

with sender as TBaseReport do begin

rvproject1.ExecuteReport('Projektuebersicht');

  if form20.DBLookupComboBox1.Text > '' then    //Antrieb vorhanden?
  begin
  NewPage;
  rvproject1.ExecuteReport('XAntrieb1');
  end;

  if form20.DBLookupComboBox2.Text > '' then     //Antrieb vorhanden?
  begin
  NewPage;
  rvproject1.ExecuteReport('XAntrieb2');
  end;

  // ... usw für alle 20 Antriebe!

end;{with}

Und schon funzts!

Trotzdem Danke für die Beiträge!

Gute Nacht!
Archer