Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Makro Drucken & Speichern unter
massimo17
Hallo,
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!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Drucken & Speichern unter
02.07.2009 11:42:40
Marc
Hallo
With wApp
.PrintOut
.SaveAs "C:\" & Range("A1").Value
End With
AW: Makro Drucken & Speichern unter
02.07.2009 13:49:23
massimo17
...hatte ich schon versucht. Geht leider nicht. Er bleibt beim Print-Befehl hängen.
AW: Makro Drucken & Speichern unter
03.07.2009 10:35:47
Marc
Also bei mir gehts. Vieleicht eine Einstellungsfrage in Word? Wo kann ich aber auch nicht sagen...
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige