Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

word über excel drucken !

word über excel drucken !
13.05.2005 01:08:43
Lucas
Hallo an alle,
folgende frage durch unten beigefügten code veranlasse ich über excel
das in word ein doc. gedruckt wird und sofort Word wieder geschlosen
sein soll.
jedoch bekomme ich als MsgBox ob ich die datei speichern möchte kann
man diese mitteilung unterdrücken so das es gar nicht nachfragt nur
Öffnet, druckt und schliest.
Sub Schaltfläche1_BeiKlick()
Dim appWord As Object
Dim doc As Object
Application.DisplayAlerts = False
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open(ThisWorkbook.Path & "\test1.doc")
Application.DisplayAlerts = True
doc.PrintOut
appWord.Quit
Set doc = Nothing
Set appWord = Nothing
danke für hinweise
gruss

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

Betreff
Datum
Anwender
Anzeige
AW: word über excel drucken !
13.05.2005 01:16:06
Reinhard
Hallo Lucas,
direkt kann ich dir da nicht helfen, evtl mit sowas, ungetestet und nur so hingeschrieben
appWord.save savechanges:=true
vor dem quit einbauen.
Oder schau mal hier, herber für Word quasi, also es gibt auch vba code dort
http://mypage.bluewin.ch/reprobst/WordFAQ/
Gruß
Reinhard
AW: word über excel drucken !
13.05.2005 01:22:15
Lucas
hallo reinhard,
danke danke für den hinweis werd mich dort hinbegeben
gruss
doc.Saved = True - o.T
13.05.2005 10:18:01
Heide_T
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige