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