Hallo,

eins mal vorweg: Ich habe keine Ahnung von VB.
Möchte aber mit einem Button, dass mir Word von einem Dokument 2 ausdrucke macht und sich dann, ohne zu fragen ob man es speichern will, Word schließt.

Das zweifache drucken hat mit "Makro Aufzeichen" funktioniert, doch bekomme ich es nicht hin, dass sich Word dann schließt ohne der Frage.
Mithilfe der Suche habe ich auch diesen Beitrag gefunden. Doch leider weiß ich nicht, wie ich das "zusammen bauen" muss...

1. miserabler Versuch:

Code :

1 2 3 4

wordApp.Visible = False     wordApp.ActiveDocument.Saved = True     wordApp.Application.DisplayAlerts = wdAlertsNone     Word.Application.Quit

gedruckt wird damit (funktioniert):

Code :

1 2 3 4 5

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _         wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _         PrintZoomPaperHeight:

schonmal vielen Dank für die Hilfe

Niemand?

Hallo InFlame,

Du hast da schon die Lösung stehen (vorausgesetzt ich habe Dich richtig verstanden). Die Zeilen:

Code :

1 2 3 4

Sub CloseOhneFrage()     Word.ActiveDocument.Saved = True ' Flag für Änderungen zurücksetzen     Word.Application.Quit End Sub

schließen Word ohne Nachzufragen.
Aber Achtung! Durch ‚Word.ActiveDocument.Saved = True’ nimmt Word an, dass es keine Änderungen gegeben hat, alle Änderungen seit dem letzten speichern gehen daher verloren!

Viele Grüße
Walter Gutermann

hallo
versuchs mal mit nem Add-In fürs Drucken in Word, dann kannst dir die ganze VBA-Geschichte sparen.
Hab gerade Word Print Buttons im test, sieht recht vielversprechend aus.
Gruß
Helpi

Wo ist denn das Problem?
Wir machen es so, dass die Datei zuerst gespeichert wird (Excel Beispiel)

Code :

1	m_appExcel.workbooks(1).saveas(path)

danach kann man noch den PrinterDialog über Commondialog.ShowPrinter anzeigen lassen und per ShellExecute drucken.