Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucken von vielen Excel-Datein

Drucken von vielen Excel-Datein
08.11.2005 10:37:49
Basti
Hallo und guten Morgen,
ich habe in einem Verzeichnis viele Excel-Dateien die ich alle öffnen muss, ausdrucken und wieder schließen. Eine langdauernde und langweilige Arbeit.
Weiß einer wie es schneller geht, so zu sagen in einem Rutsch oder so.
Gruß, Basti

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken von vielen Excel-Datein
08.11.2005 11:09:31
Marc
Hallo Basti,
damit sollte es gehen.
Gruß Marc

Sub Drucken()
On Error Resume Next
verz = InputBox("Geben Sie den Pfad ein!")
If verz = "" Then Exit Sub
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = ".xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
quelle.Close savechanges:=False
Application.DisplayAlerts = False
Next y
End Sub

AW: Drucken von vielen Excel-Datein
08.11.2005 11:15:45
Basti
Hallo Marc,
perfekt ...., das funktioniert ja super, vielen Dank.
Ich wünsche Dir noch eine schönen Tag und viel Erfolg bei allem.
Gruß, Basti
Anzeige
doch noch eine Bitte an Marc
08.11.2005 11:34:09
Basti
Hallo Marc,
bei der Kontrolle der Ausdrucke habe ich festgestellt, dass sämtliche Arbeitsblätter einer Datei gedruckt werden. In allen Dateien soll aber nur ein Arbeitsblatt gedruckt werden. Der Name der zu druckenden Arbeitsblätter ist immer der selbe.
Bitte, bitte kannst Du mir den Code noch etwas modifizierenß
Grúß, Basti
AW: doch noch eine Bitte an Marc
08.11.2005 11:46:53
Marc
Hey,
ändere die Zeile:
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
in:
Sheets("HIER DEN NAME DEINES BLATTES").PrintOut
Gruß Marc
super, nochmals vielen Dank oT
08.11.2005 11:50:56
Basti

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige