|
Moin,
danke für Deine Rückmeldung.
Im momentanen Code ist keine Druckanweisung, da hast Du recht!
Ich hatte eine drin, aber mit der hat er immer nur die Excel Datei gedruckt.
Hatte es so probiert:
'aktiviert das neu erstelle Dokument 1
'Documents("Dokument1.doc").Select
With ActiveSheet
.PrintPreview
End With
'XXXXXXXXXXXXX Ende Druckbefehl
Wenn der Code durchläuft, dann öffnet er das word Dokument (heißt dann automatisch Dokument1) und trägt auch den gewünschten Inhalt ein.
Dann öffnet sich aber die "Quelldatei Excel" und diese wird gedruckt.
Kriege den Wechsel zu der neu erstellten Datei "Dokument1.docx" nicht hin.
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub CurriculumAusdrucken()
'1.)dieses Makro soll die in einer geöffneten Excel-Datei enthaltene Lehrgangsnummer in das word - Dokument "RSG_Curriculum_20_Tage.docx" schreiben
Dim RSG_Curriculum_20_Tage
Dim appWord As Object
'erstellt auf Grundlage der Curriculumsdatei eine neue Datei (von mir aus kann es auch die bestehende Datei sein, wird ja eh nach dem Druck ohne
'Änderungen geschlossen
Set appWord = CreateObject("Word.Application")
Set RSG_Curriculum_20_Tage = appWord.Documents.Add("\\SBS-SERVER\Daten\Folien und Skripte\RSG ab 2018\RSG_Curriculum_20_Tage.docx")
'man soll sehen, was passiert
appWord.Visible = True
'aktiviert die Datei
RSG_Curriculum_20_Tage.Activate
' fügt den Begriff "Lehrgangsnummer" ein
RSG_Curriculum_20_Tage.Bookmarks("Lehrgangsnummer").Range.Text = Range("Lehrgangsnummer")
'''''''''''''''''''Bis hierhin geht es-
'er öffnet die neue Word Datei
'er schreibt an die richtige Stelle die "Lehrgangsnummer"
'er druckt aber die Word Datei nicht, da offenbar Excel aktiv ist
'jetzt soll
'1.) das neu erstellte word-Dokument ausgedruckt werden
'2.) das neu erstellte word Dokument gelöscht werden
'3.) zur offenen Excel Datei in das Tabellenblatt "Dokumentendruck" gewechselt werden
Set RSG_Curriculum_20_Tage = Nothing
Set appWord = Nothing
' Tabellenbatt Dokumentendruck aktivieren
ThisWorkbook.Worksheets("Dokumentendruck").Activate
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|