Drucken von unsichtbarem Worddokument
23.06.2020 08:01:52
unsichtbarem
ich habe folgendes Problem: Ich rufe aus Excel heraus mit VBA eine Wordvorlage auf, befülle diese und möchte sie anschließend nur ausdrucken, ohne sie zu speichern. Ich habe mehrere Datensätze, die nacheinander eingetragen und ausgedruckt werden sollen. Dabei soll vor dem Druck des ersten Dokumentes das Druckmenü aufgerufen werden.
So öffne ich die Vorlage:
Public Function Worddokument_oeffnen( _
Dateipfad As String, _
Optional Von_Vorlage As Boolean = True, _
Optional Sichtbarkeit As Boolean = False _
) As Object
Dim Word_Anwendung As Object
Dim Worddokument As Object
'Dateipfad umwandeln, um Erreichbarkeit der Datei im Netzwerk sicherzustellen, siehe "UNC"
Dateipfad = Datei.Netzwerkpfad_ermitteln(Dateipfad)
'Wordanwendung anlegen
Set Word_Anwendung = CreateObject("Word.Application")
'Wordanwendung sichtbar/unsichtbar machen
Word_Anwendung.Visible = Sichtbarkeit
'Vorlage als Dokument oder Dokument oeffnen
If Von_Vorlage = True Then
Set Worddokument = Word_Anwendung.Documents.Add(Dateipfad)
Else
Set Worddokument = Word_Anwendung.Documents.Open(Dateipfad)
End If
'Nach Word "umschalten"
If Sichtbarkeit = True Then Auf_Anwendung_warten Word_Anwendung, 2 'kritischer Wert
Set Worddokument_oeffnen = Worddokument
End Function
Mit folgender Prozedur übergebe ich das Wordobjekt und möchte es gern ausdrucken.
Public Sub Worddokument_drucken( _
Optional Dokument As Object, _
Optional Dateipfad As String, _
Optional Dialog_anzeigen As Boolean = False _
)
Dim Wordanwendung As Object
Dim Worddokument As Object
If Dokument Is Nothing And Datei.Datei_vorhanden(Dateipfad) = False Then Exit Sub
If Not Dokument Is Nothing And VBA.Len(Dateipfad) = 0 Then
Set Wordanwendung = Dokument.Parent
Set Worddokument = Dokument
ElseIf Dokument Is Nothing And Datei.Datei_vorhanden(Dateipfad) = True Then
Set Wordanwendung = CreateObject("Word.Application")
Set Worddokument = Wordanwendung.Documents.Open(Dateipfad)
End If
If Dialog_anzeigen = True Then Wordanwendung.Dialogs(88).Show
Worddokument.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
If Datei.Datei_vorhanden(Dateipfad) = True Then
Wordanwendung.Quit
End If
Set Worddokument = Nothing
Set Wordanwendung = Nothing
End Sub
Wenn ich ein Worddokument öffne und mehrere Datensätze drucken möchte, dann soll vor dem Druck des ersten Datensatzes das Druckmenü aufgehen. Leider hängt sich Excel genau an dieser Stelle auf, da das Druckmenü unsichtbar bleibt, aber auf meine Aktion wartet. Wenn ich Word als Anwendung starte, wird das unsichtbare Dokument und das Menü sichtbar. Diesen Umweg wollte ich aber gern ausschließen.
Wer kann mir einen Tipp geben? Ist es möglich das Worddokument im Hintergrund, das Druckmenü von Word aber im Vordergrund anzuzeigen?
Besten Dank für jeden Hinweis!
Liebe Grüße aus dem Elbflorenz
Erik