Drucken Worddokumenten mit System i

[Fuerchau]

Dann teste mal folgendes:

Private Sub Document_Close()
ThisDocument.Saved=True
End Sub

Bei mir wurde dann selbst ein verändertes Dokument widerspruchslos geschlossen.

[jgv]

Besten Dank für den Hinweis. Leider funktioniert es noch nicht. Folgender Makro wird verwendet:

 
ThisDocument - 1
Private Sub Document_New()
End Sub
 
Private Sub Document_Open()
'
' Makro1 Makro
' Makro aufgezeichnet am 04.12.2007 von CHW
'
    ChangeFileOpenDirectory "F:\Daten\Tests\"
    Documents.Open FileName:="Platzhalter.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    ActiveDocument.Close
End Sub
 
Private Sub Document_Close()
ThisDocument.Saved = True
End Sub

Das Dokument wird geöffnet und gedruckt. Danach erscheint das übliche Word-Schlussbild mit der Frage ob speichern (was ja nicht erwünscht ist). Unabhängig vom Antwort erscheint der Fehler:

Lauzeitfehler 4248. Dieser Befehl ist nicht verfügbar, weil kein Dokument geöffnet.

Was mache ich falsch ?

Besten Dank und freundliche Grüsse

jgv

[Fuerchau]

Welches Dokument ist denn das "ActiveDocument" ?
Dein Makro-Dokument ?

Ansonsten probier einfach folgendes:

ActiveDocument.Saved = True
ActiveDocument.Close

und lass "Document_Close" weg, da dies ja wohl dein Makro-Dokument betrifft.

[jgv]

Die Korrektur gemacht, der Laufzeitfehler erscheint aber immer noch.

[Fuerchau]

Da hilft dann wohl nur der integrierte Debugger, so dass du beim Fehler dann auf die Schaltfläche "Testen" drücken kannst.

Du musst das Ganze ja schließlich auch im Dialog testen können.

PS:
Mittels "on error resume next" kannst du Fehler einfach ignorieren.