Einzelnen Beitrag anzeigen

Archer

Registriert seit: 8. Feb 2006
Ort: Ludwigswinkel
24 Beiträge
 
Delphi 7 Professional
 
#4

Re: [Rave] Vorlagen zur Laufzeit automatisch ausfüllen

  Alt 28. Mär 2006, 00:30
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
Jochen Riehm
  Mit Zitat antworten Zitat