Hallo,
wie kann man in FastReport nach dem drucken eines Reports das Preview automatisch schließen lassen?
Test halber lasse ich in
FormShow den FastReport mit
frxReport1.ShowReport(True); öffnen.
Im Event
Progress bzw.
frxReport1Progress von
frxReport1 steht folgendes:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.frxReport1Progress(Sender: TfrxReport;
ProgressType: TfrxProgressType; Progress: Integer);
var wnd: HWND;
begin
wnd := FindWindow(PChar('Preview'), nil);
if CloseWindow(wnd) then
ShowMessage('Fenster geschlossen!')
else
ShowMessage('Fenster nicht geschlossen!');
end; |
So funktioniert es nicht, warum keine Ahnung.
Ich hatte schon mit den Gedanken gespielt über die ThreadID, EnumWindow das Fenster zu schließen. Aber vielleicht geht es auch einfacher.
