|
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
XXXXXXXXHABE DAS JETZT EINGEFÜGT
wordapp.ActivePrinter = "\\SBS-SERVER.mebino.local\RDS Hannover auf Ne12:"
XXXXXXXXX Meintest Du das so?
'Word Datei schließen
doc.Close SaveChanges:=False
'Word Applikation schließen
wordapp.Quit
End Sub
|