Fastreport 4 feststellen ob vom Preview gedruckt wird

[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;