|
ich habe noch einmal geschaut.
Problem ist, dass er das Excel-Dokument druckt aus dem das Makro gestartet wurde und nicht das word Dokument.
Entweder hat es nach dem Öffnen einen anderen Namen?
Oder es ist nicht korrekt aktiviert?
Jetzt ist es so, dass das Makro das Dokument öffnet, die vorhandenen Bookmarks korrekt befüllt und dann das Dokument nicht drucken will
__________
Sub PK_Druck()
'Word Datei öffnet, vorhandene Bookmarks werden korrekt befüllt, Dokument wird aber nicht gedruckt
'Excel aktivieren
Dim wordapp As New Word.Application
Dim doc As Word.Document
'Word sichtbar machen
wordapp.Visible = True
'Word Datei öffnen
Set doc = wordapp.Documents.Open("\\SBS-SERVER\Original-Unterlagen\233_41098_ neu_12.docx") 'habe ich gekürzt
'Word mit excel-Daten füllen
doc.Bookmarks("Datum_A").Range.Text = Tabelle110.Cells(2, 28).Value
doc.Bookmarks("Datum_P").Range.Text = Tabelle110.Cells(2, 27).Value
doc.Bookmarks("Vertreter").Range.Text = Tabelle110.Cells(2, 22).Value
doc.Bookmarks("Vertreter_").Range.Text = Tabelle110.Cells(2, 23).Value
doc.Bookmarks("V").Range.Text = Tabelle110.Cells(2, 18).Value
doc.Bookmarks("A").Range.Text = Tabelle110.Cells(2, 21).Value
'BIS HIER HER GEHT ES
'Word Dokument aktivieren XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Word Dokument wird nicht gedruckt, sondern das aktive excel-Dokument aus dem das Makro gestartet wurde
Documents("\\SBS-SERVER\Original-Unterlagen\\233_41098_Genehmigung Prüfungsausschuss-RettSan-APVO neu_12.docx").Activate
'Wählt den Drucker Magazin 1 aus, drucken klappt ja, nur eben das excel Dokument anstelle des Word Dokumentes
'Word Datei schließen
doc.Close SaveChanges:=False
'Word Applikation schließen
wordapp.Quit
End Sub
|