Einzelnen Beitrag anzeigen

Fritz01

Registriert seit: 22. Mär 2006
Ort: Großenkneten
181 Beiträge
 
Delphi 7 Professional
 
#1

Drucken aus Druckvorschau (Rave5 BE)

  Alt 11. Jan 2008, 16:50
Hallo,
benötige wieder mal Euere Hilfe!
Möchte mir mit Rave 5.0 BE eine DruckVorschau basteln, aus der ich dann per btnClick auch drucken kann. Die Vorschau und navigieren durch die Seiten funktioniert bereits.
Bei meiner Suche in der DP fand ich folgenden Code von merlin17, genau das, was ich suche.
Delphi-Quellcode:
procedure TRvPreview.DruckenBtn(Sender: TObject);
var
  DoPrint: boolean;
  I1: integer;
  ForceCopies: integer;
begin
  if soAllowPrintFromPreview in ReportSystem.SystemOptions then begin //<-- in 'ReportSystem'
    RvRenderPrinter.NDRStream := RvRenderPreview.NDRStream;
    RvRenderPrinter.Pages := RvRenderPreview.Pages;
    if ssAllowPreviewSetup in ReportSystem.SystemSetups then begin
      with TRpSetupForm.Create(self) do try //<- 'TRpSetupForm'
        PreviewSetup := true;
        ReportSystem := Self.ReportSystem;
        FilePrinter := RvRenderPrinter;
        DoPrint := (ShowModal = mrOK);
        RvRenderPrinter.IgnoreFileSettings := true;
      finally
        Free;
      end; { with } 
    end else begin
      DoPrint := true;
    end; { else } 

    if DoPrint then begin
      if (RvRenderPrinter.MaxCopies <= 1) and (RvRenderPrinter.Copies > 1) then begin
        ForceCopies := RvRenderPrinter.Copies;
        RvRenderPrinter.Copies := 1;
      end else begin
        ForceCopies := 1;
      end; { else } 
      for I1 := 1 to ForceCopies do begin
        if Assigned(RvRenderPrinter.NDRStream) then begin
          RvRenderPrinter.Render(RvRenderPrinter.NDRStream);
        end else begin
          RvRenderPrinter.Render(InputStream);
        end; { else } 
      end; { for } 
      AfterPreviewPrintEvent;
      RvRenderPrinter.NDRStream := nil
    end; { if } 
  end; { if } 
  SetButtonState;
end;
Habe mir das in eine btnClickProcedure kopiert.
Der Compiler stolpert dabei über ’ReportSystem’ in der markierten Zeile mit der Fehlermeldung:
[Fehler] Unit1.pas(108): Undefinierter Bezeichner: 'ReportSystem'
Das gilt auch für ’TRpSetupForm’, aber das ist wohl der Formular-Name. Oder??
Warum, was habe ich da übersehen? Wer weiß da Rat und kann mir helfen?
Danke
Fritz
Fritz
  Mit Zitat antworten Zitat