Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

tabellen mehrerer dateien ausdrucken

tabellen mehrerer dateien ausdrucken
08.04.2003 15:22:30
josef
hallo excelgemeinde,

in einem verzeichnis befindet sich eine unbestimmte anzahl an exceldateien.
ich möchte nun von allen dateien folgenden ausdruck:
ab einschließlich tabellenblatt 2 jeweils einen ausdruck.
dabei weiß ich nicht, wieviele tabellenblätter jede einzelne datei enthält - lediglich tabelle 1 soll von keiner datei gedruckt werden.
für eure hilfe bedanke ich mich schon mal im voraus !!!

gruß
josef

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: tabellen mehrerer dateien ausdrucken
08.04.2003 16:19:57
moe

Probier es mal so

Sub AlleDrucken()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = "c:" 'hier dein Verzeichnis
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
For i = 2 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).PrintOut
Next i
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

wenn es nicht klappt meld dich

Anzeige
Re: tabellen mehrerer dateien ausdrucken
08.04.2003 16:20:31
Kobra

Hi,

wenn Du alle Dateien öffnen kannst, dann funktioniert der Code ganz gut.

2. Voraussetzung ist, dass Tabelle1 in allen Dateien die gleiche Anzahl Seiten ergibt.



Sub alle_Arbeitsmappen_drucken()
    antwort = MsgBox("Alle geöffneten Mappen ausdrucken?" + Chr(10) + _
              "Datei wird gedruckt und ohne speichern geschlossen!", _
              vbInformation + vbYesNo + vbDefaultButton2, "Alle offenen Arbeitsmappen drucken !!!")
    If antwort = vbYes Then
        
        von = InputBox("Beginn Ausdruck von Seite: ", "Startseite auswählen")
        If Not IsNumeric(von) Then
          MsgBox ("Falsche Eingabe")
          Exit Sub
        End If
        bis = InputBox("Ende Ausdruck von Seite: ", "Letzte Seite auswählen", "Bis Zum Ende")
        
        If bis = "Bis Zum Ende" Then
          bis = 32766
        End If
        
        If Not IsNumeric(bis) Then
          MsgBox ("Falsche Eingabe")
          Exit Sub
        End If
        
         
        On Error Resume Next
        Do While ActiveWorkbook.Name <> ""
          If Err = 91 Then
            Exit Sub
          End If
       
          Application.workbooks(index).Activate
          Application.EnableEvents = False
          ActiveWorkbook.PrintOut From:=von, to:=bis, Copies:=1, Collate:=True
          Application.EnableEvents = True
          ActiveWindow.Close (False)
        Loop
    End If
End Sub



     Code eingefügt mit Syntaxhighlighter 2.1

Gruss
Markus

Anzeige
erstmal danke. aber noch ein problem
08.04.2003 19:30:33
josef

hallo "moe",

erstmal bedanke ich mich für deine hilfe !!!
der code funzt einwandfrei.
ein anderses problem bringt mich dazu auf die palme.
ich bekomm die dateien von verschiedenen mitarbeitern zur verfügung. jetzt stelle ich fest, daß beim ausdruck mancher dateien die option "drucken" + "anzahl der exemplare" auf z.b. zwei steht.
meine frage nun noch, wie kann ich vorher abfragen bzw festlegen, daß von jedem tabellenblatt tatsächlich nur ein exemplar gedruckt wird?
nochmal dankeschön

gruß josef

Re: tabellen mehrerer dateien ausdrucken
09.04.2003 01:08:20
moe

Hier bitte sag bitte bescheid ob es klappt oder nicht.

Gruss
Moe


Sub AlleDrucken()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = "c:" 'hier dein Verzeichnis
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
For i = 2 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).PrintOut Copies:=1
Next i
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Anzeige
Re: erstmal danke. aber noch ein problem
09.04.2003 01:19:40
moe

Hier bitte sag bitte bescheid ob es klappt oder nicht.
Gruss
Moe


Sub AlleDrucken()
Dim iCounter As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
With Application.FileSearch
.LookIn = "c:" 'hier dein Verzeichnis
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(iCounter), False
For i = 2 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).PrintOut Copies:=1
Next i
ActiveWorkbook.Close savechanges:=False
Next iCounter
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Anzeige
perfekt, danke!! o.T.
09.04.2003 10:11:21
josef



92 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Anzeige
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
mehrere Dateien drucken
Thomas

Hallo,
ich habe ein kleines Problem mit ca. 1000 Exceldateien.
Diese müssten nun zur Jahresauswertung gedruckt werden. Nun suche ich eine Möglichkeit alle Dateien auf einmal zu drucken. Das Problem ist das wenn ich im Dateiordner die Dateien markiere und dann im DropDown Menü drucken au...
01.02.2010 17:15:21
Thread-ID: 1134843
7 Beiträge
per VBA als PDF speichern - mit Code
Klaus

Moin Moin,
um eine Arbeitsmappe als PDF zu speichern, bemühe ich den "PDFCreator" sowie den Drucken-Dialog. _ Der Recorder gibt mir dann folgendes: Sub Makro1() Application.ActivePrinter = "PDFCreator auf Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator...
16.04.2010 14:23:54
Thread-ID: 1152230
2 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
13
6
4
2
6
1
5
1
4
10
2
1
6
1
7
5
2
1
2
2
3
2