Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen

Gruppe

Seite

Problem

Wie kann ich über VBA eine Arbeitsmappe öffnen, das erste Blatt drucken und die Mappe wieder schließen, ohne daß sie angezeigt wird?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub OeffnenDruckenSchliessen()
   Dim vFile As Variant
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   vFile = Application.GetOpenFilename( _
      "Excel-Arbeitsmappe (*.xls), *.xls")
   If vFile = False Then GoTo ERRORHANDLER
   Workbooks.Open vFile
   Worksheets(1).PrintOut
   ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite