HERBERS Excel-Forum - die Beispiele

Thema: Alle Dateien eines Verzeichnisses drucken

Home

Gruppe

Druck

Problem

Wie kann ich über VBA alle Arbeitsmappen eines Ordners ausdrucken lassen?

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

Sub AlleDrucken()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Workbooks.Open .FoundFiles(iCounter), False
         ActiveWorkbook.PrintOut
         ActiveWorkbook.Close savechanges:=False
      Next iCounter
   End With
ERRORHANDLER:
   Application.ScreenUpdating = True
   Application.EnableEvents = True
End Sub

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

PDF Drucken VBA Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument UserForm im Querformat drucken
Variablen Übergabe an Makro (andere Arbeitsmappe) zoom auf Druckbereichsbreite anpassen
Bilder in Registerblatt drucken Code erst nach Anzeige der Arbeitsmappe ausführen
PDF eventuell Ausdruck sperren? Druckprobleme....
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Farben aus einer Arbeitsmappe übernehmen Bestimmte Zeilen/ Spalten nicht mitdrucken
Eingabe in gesamter Arbeitsmappe prüfen Diagramme DIN A3 drucken
Automatischen Andruck auf Standartdrucker erzeugen Druckerauswahl
Hyperlink öffnet Arbeitsmappe mit Parametern Blätter autom. ein-/ausblenden + drucken
Kann bestimmten Drucker nicht auswählen Drucker nicht vorhanden, dann Meldung
Arbeitsmappendruck Abfrage ob Druckbereich zu groß für Seitenbreite
Prüfung in anderer Arbeitsmappe 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
neue Arbeitsmappe speichern, ohne alte zu schliess Druckparameter an Datei mitgeben
Makro für ereignisabh. Druck verschiedener Seiten Arbeitsblatt in neuer Arbeitsmappe speichern
Excel Seriendruck im PDF-Format Per VBA drucken - Adobe PDF on ne0x
Drucken, nur wenn Bedingung erfüllt ist! variablen Druckbereich definieren
Mit Makro Virtuelle Drucker (PDF) ansteuern Standarddrucker festsetzen??
Wann zuletzt ausgedruckt Excel druckt keine Bilder!
sql Ausdruck like Excel Druckmakro - VBA Experten gesucht
CommandButton nicht mit ausdrucken Druckvorschau
Druckerdialog mehrere Sheets farbig ausdrucken, weshalb ...