Excel Druckmakro und Schließen

[proofed]

Hallo Leute ! Ich habe folgendes funktionierendes Makro welches mir täglich beim Öffnen eine Datei druckt.

Jetzt möchte ich noch das sich Excel vollständig nach dem Druckbefehl wieder schließt.
Leider bin ich noch nicht zum Ergebnis gekommen und bitte um eure mithilfe. Danke :)


Private Sub Workbook_Open()
'
' Drucken Makro
' Drucken
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

[Kuwer]

Hallo,

Private Sub Workbook_Open()
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Application.Quit
End Sub

Gruß Uwe

[proofed]

Danke Uwe, super !

Ich bin leider nicht gut im VBA...

Kannst du mir auch noch helfen damit die Datei direkt schließt ohne zu speichern? Jetzt kommt das Feld ob ich Speichern möchte.

Danke dir im Voraus!

[chris-ka]

Hi,

Code:

Private Sub Workbook_Open()
 ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
activeworkbook.close false
 Application.Quit
End Sub

[Kuwer]

Hallo,

Private Sub Workbook_Open()
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
  Me.Saved = True
  Application.Quit
End Sub

Gruß Uwe