Guten Abend, liebe Freunde von VBA!
Ich habe ein Makro, aus dem Daten aus Excel per Bookmarks nach word übertragen werden.
Die Word-Datei wird als Grundlage genommen und ein neues Dokument (Dokument1) wird auf dessen Grundlage geöffnet, was vielleicht das Problem sein könnte.
Unter dem Strich klappt der Übertrag der Daten, aber Excel druckt dann am Ende nicht das word Dokument, sondern das excel Dokument.
Vermutlich wird das neue Dokument (Dokument1) nicht zum Drucken aktiviert?
___________
Sub DruckMassnahmenordner()
Dim Deckblatt_Massnahmenordner As Object
Dim appWord As Object
'erstellt ein neues Dokumet um Daten einzugeben, ist das überhaupt notwendig?
Set appWord = CreateObject("Word.Application")
'auf diese Vorlage soll sich das Makro beziehen
Set Deckblatt_Massnahmenordner = appWord.Documents.Add("C:\Users\...\Deckblatt_Massnahmenordner.doc")
appWord.Visible = True
Deckblatt_Massnahmenordner.Activate
'XXXXAchtung Das neue Dokument heißt jetzt Dokument1, sicher der Grund dafür, dass es nicht gefunden wird oder aktiviert werden kann zum drucken
'Verknüpft word Bookmark mit Excel Bookmark (funktioniert)
Deckblatt_Massnahmenordner.Bookmarks("BeginnRSG").Range.Text = Range("BeginnRSG")
'hier kommt der Druckbefehl, der den Drucker ansteuert, dieser druckt aber dann die Quelldatei Excel
' DruckMagazinblanko (hier kommt der korrekte Drucker
Set Deckblatt_Massnahmenordner = Nothing
Set appWord = Nothing
End Sub
______________
Hat jemand von Euch eine Idee,
a) ob ich überhaupt ein neues Dokument erstellen sollte oder besser in der Originaldatei schreiben soll - wenn ja, was ändern?
oder
b) wie ich das vollkommen richtig befüllte Dokument1 drucken kann?
Liebe Grüße
Matthias
|