Makro Drucken & Speichern unter
massimo17
ich habe folgendes Makro, dass aus Excel eine Word-Datei mit Serienfunktion öffnet.
Wie kann ich automatisieren,
dass diese auch gleich gedruckt wird?
dass diese unter einem Namen i.A. von einer Zelle gespeichert wird?
Private Sub CommandButton2_Click()
Dim wApp As Object
Set wApp = GetObject(ThisWorkbook.Path & "\Zeugnisgenerator.doc")
With wApp
.Application.Visible = True
.Application.Activate
End With
End Sub
Danke für die Hilfe!
Anzeige