Fastreport 4 feststellen ob vom Preview gedruckt wird

[Kostas]

Hallo Zusammen,

wenn der Anwender einen Report vom Preview an den Drucker sendet, so würde ich gerne
ein Wasserzeichen einblenden z.B.: Informativ. Eben so müsste ich nach dem Drucken
wissen ob der Report vom Preview gedruckt wurde.

Hat da jemand eine Idee?

Gruß Kostas

[Union]

So kannst Du rausfinden ob eine Preview zum Zeitpunkt der Erstellung aktiv war (wenn Du die Standard-Preview verwendest):

Delphi-Quellcode:

uses frxPreview;

procedure TForm1.frxReport1BeginDoc(Sender: TObject);
var
   i : integer;
begin
   for i := 0 to Screen.FormCount-1 do
   begin
      if Screen.Forms[i] is TfrxPreviewForm then
      begin
         TFrxMemoView(TFrxReport(Sender).FindObject('Memo1')).Text := 'Preview aktiv';
         break;
      end;
   end;
end;

[Kostas]

Zitat von Union:

So kannst Du rausfinden ob eine Preview zum Zeitpunkt der Erstellung aktiv war (wenn Du die Standard-Preview verwendest):

Delphi-Quellcode:

uses frxPreview;

procedure TForm1.frxReport1BeginDoc(Sender: TObject);
var
   i : integer;
begin
   for i := 0 to Screen.FormCount-1 do
   begin
      if Screen.Forms[i] is TfrxPreviewForm then
      begin
         TFrxMemoView(TFrxReport(Sender).FindObject('Memo1')).Text := 'Preview aktiv';
         break;
      end;
   end;
end;

ah ja, so geht es natürlich immer.
Ein herzliches Dankeschön.

Gruß Kostas