PhotoPaint per Makro beenden

[koter]

Hallo Günther,

da habe ich mich mit meiner Einschätzung der Umstände wohl gründlich geirrt!
Leider kann ich es nur mit X7 testen, und da funktioniert es.

Du kannst versuchen die Funktion wie in der Hilfe aufzurufen:

Code:

Sub FensterZuBeenden()
   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next
   Call QuitApp
End Sub

Sub QuitApp()
 Quit
End Sub

Wenn PP durch FensterZuBeenden nicht beendet wird, versuche die Sub QuitApp einzeln auszuführen.
Dann wissen wir wenigstens ob der Quit-Befehl überhaupt funktioniert.

Weil ich es nicht testen kann, bleibt leider nur dieser Schuss ins Blaue.

Gruß

Koter