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

Home

Gruppe

Druck

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

PDF Drucken VBA	Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument	UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen	Bilder in Registerblatt drucken
Regex für Filterung von Daten in html-seiten	PDF eventuell Ausdruck sperren?
Druchbereiche auf eine Seite	Seitenumbuch
Druckprobleme....	Text aus Zelle in Internet Seite
Skript funktioniert nur auf einer seite?!?!	Tabellenblätter Ausdruck gruppieren
Drucken mit VBA	Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken	Automatischen Andruck auf Standartdrucker erzeugen
Seitennummerierung in Fußzeile	Grösse Textbox vom Seitenrand abhängig machen
Druckerauswahl	Excel links auf seite
Blätter autom. ein-/ausblenden + drucken	Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung	Arbeitsmappendruck
Button für Seite einrichten	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Fehler 1004 beim Druck einer PDF - mit Screenshot
Druckeinstellungen für mehrere Drucke übernehmen	Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken	Druckparameter an neue Datei
Button zum Ausdrucken	Druckparameter an Datei mitgeben
Makro für ereignisabh. Druck verschiedener Seiten	Excel Seriendruck im PDF-Format
Per VBA drucken - Adobe PDF on ne0x	Drucken, nur wenn Bedingung erfüllt ist!
Probleme beim Einfügen man. Seitenumbrüche (VBA)	variablen Druckbereich definieren
Automatischer Seitenumbruch	Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen??	Wann zuletzt ausgedruckt
Excel druckt keine Bilder!	Datenfelden in Excel auf Seite schreiben.
sql Ausdruck like	Excel Druckmakro - VBA Experten gesucht