Supportnet / Forum / Tabellenkalkulation
word über excel drucken
Frage
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
last_boby
Antwort 1 von coros
Hi last_body,
nimm nachfolgendes Makro und tausche es gegen Dein Altes aus.
Das Makro druckt Dir das Worddokument aus ohne die Abfrage. Verantwortlich, dass die Abfrage nicht mehr kommt, ist die Zeile
Application.Wait Now + TimeSerial(0, 0, 5)
Die hält Word 5 Sekunden lang offfen, damit der Druckbefehl ordnungsgemäß erfolgen kann. Danach wird das Worddokument wieder geschlossen.
Ich hoffe, Du kannst damit etwas anfangen. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nimm nachfolgendes Makro und tausche es gegen Dein Altes aus.
Sub Schaltfläche1_BeiKlick()
Dim Wordanwendung As Word.Application, wrdDoc As Word.Document
Set Wordanwendung = CreateObject("Word.Application")
Set Worddatei = Wordanwendung.Documents.Open(ThisWorkbook.Path & "\test1.doc")
Worddatei.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
Wordanwendung.Quit
Set Worddatei = Nothing
Set Wordanwendung = Nothing
End SubDas Makro druckt Dir das Worddokument aus ohne die Abfrage. Verantwortlich, dass die Abfrage nicht mehr kommt, ist die Zeile
Application.Wait Now + TimeSerial(0, 0, 5)
Die hält Word 5 Sekunden lang offfen, damit der Druckbefehl ordnungsgemäß erfolgen kann. Danach wird das Worddokument wieder geschlossen.
Ich hoffe, Du kannst damit etwas anfangen. Bei Fragen melde Dich.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von coros
Hi,
ich noch mal. Was ich für die, die das Makro ausprobieren möchten noch vergessen habe zu erwähnen, ist dass für das Makro in der VBA Umgebung (Tastenkombination Alt F11) in der Menüleiste unter Extras => Verweise, der Verweis auf
"Microsoft Word ?? Object Library" (anstelle der ??muss die Version stehen, also 9.0 für Excel 2000, 10.0 für Excel 2002 usw.) aktiviert sein muss. Wenn das nicht der Fall ist, erscheint beim Ausführen des Makros eine Fehlermeldung.
Das war´s
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
ich noch mal. Was ich für die, die das Makro ausprobieren möchten noch vergessen habe zu erwähnen, ist dass für das Makro in der VBA Umgebung (Tastenkombination Alt F11) in der Menüleiste unter Extras => Verweise, der Verweis auf
"Microsoft Word ?? Object Library" (anstelle der ??muss die Version stehen, also 9.0 für Excel 2000, 10.0 für Excel 2002 usw.) aktiviert sein muss. Wenn das nicht der Fall ist, erscheint beim Ausführen des Makros eine Fehlermeldung.
Das war´s
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.