|
Guten Tag aus Hannover!
Habe folgendes Problem.
Ich möchte, dass Daten aus excel in word übertragen werden (funktioniert momentan über bookmarks).
Word erstellt also ein neues word dokument und überträgt die Inhalte dort hinein.
Nun soll dieses word Dokument mit den über bookmarks eingefügten Inhalten gedruckt werden und anschleßend geschlossen werden.
Das bekomme ich nicht hin.
Das Makro druckt das aktuell offene Tabellenblatt und wechselt nicht in das neu geöffnete Dokument.
___
Sub DruckMassnahmenordner()
Dim Deckblatt_Massnahmenordner As Object
Dim appWord As Object
'erstellt ein neues Dokumet um Daten einzugeben
Set appWord = CreateObject("Word.Application")
'auf diese Vorlage soll sich das Makro beziehen
Set Deckblatt_Massnahmenordner = appWord.Documents.Add("xxx\DOKUMENTE\Deckblatt_Massnahmenordner.doc")
appWord.Visible = True
'Deckblatt_Massnahmenordner.Activate
'Verknüpft word Bookmark mit Excel Bookmark
Deckblatt_Massnahmenordner.Bookmarks("BeginnL").Range.Text = Range("BeginnL")
Deckblatt_Massnahmenordner.Bookmarks("EndeRSP").Range.Text = Range("EndeRSP")
Deckblatt_Massnahmenordner.Bookmarks("LehrgNr").Range.Text = Range("LehrgNr")
Deckblatt_Massnahmenordner.Bookmarks("LehrgNrRSP").Range.Text = Range("LehrgNrRSP")
' DruckMagazinblanko
Dim strPrinter As String
Const cstrPrinter As String = "\\Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
Set Deckblatt_Massnahmenordner = Nothing
Set appWord = Nothing
End Sub
__
Hat jemand eine Idee?
Bin absoluter Neuling... .
Mfg
Matthias
|