hallo Uschi,
teste mal dieses:
Sub DateienDrucken()
Dim Dateien, i
ChDir "D:\test"
dateien = Application.GetOpenFilename _
("Excel-Dateien (*.xls), *.xls", MultiSelect:=True)
Application.ScreenUpdating = False
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
If dateien(i) <> ActiveWorkbook.FullName Then
Workbooks.Open dateien(i)
ActiveWorkbook.Worksheets(1).PrintOut
ActiveWorkbook.Close
End If
Next i
End If
Application.ScreenUpdating = True
End Sub
Den Pfad hinter ChDir an deine Bedingungen anpassen.
Im Datei öffnen-Dialog kannst du dann (bei gedrückter
STRG- bzw STRG+SHIFT-Taste) alle zu druckenden Dateien
markieren. Diese Dateien werden geöffnet, jeweils das
erste Tabellenblatt gedruckt und wieder geschlossen.
Die Datei, die das Makro enthält, kann im Datei öffnen-
Dialog markiert werden, wird aber nicht mit ausgedruckt
(kann man bei Bedarf anpassen).
Teste es erstmal mit wenigen Dateien aus.
Excel druckt in der Reihenfolge
13
24
Welche Seiten sollen auf eine Seite zusammen? 1/3 und 2/4
oder 1/2 und 3/4 ? Hast du gar einen Drucker, der
beidseitig drucken kann?
Gruß
stefan
-----Originalnachricht-----
Hallo zusammen,
vielleicht könnt ihr mir ja helfen?
Ich möchte über VBA alle Arbeitsmappen eines Ordners
ausdrucken lassen. Hat einer eine Idee für mich.
Am liebsten noch mit Unterscheidung zwischen Vorder- und
Rückseite...
Vielen Dank
Uschi
.