Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckaufträge zusammenfassen

Forumthread: Druckaufträge zusammenfassen

Druckaufträge zusammenfassen
21.04.2006 14:42:13
Sebastian
Hallo Leute,
letzte Hoffnung.
Wenn man mit Hilfe eines Makros, einige Seiten mit dem PrintOut-Befehl ausdrucken lässt(können einige hundert sein), kann man diese dann evtl. in einem einzigen Druckauftrag bündeln?
wenn ja, wie?!
Danke im Voraus.
MfG Sebastian
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckaufträge zusammenfassen
22.04.2006 15:16:07
EtoPHG
Hallo Sebastian,
Na ja, von irgendwoher muss Excel ja wissen WELCHE (...einige Seiten) Blätter es ausdrucken soll. Du müsstes z.B. auf Tabellenblatt 1 ins Spalte A die Blattnamen haben und in Spalte B ein Ja oder Nein, dann würde folgendes Makro alle Blätter, die mit Ja markiert sind ausdrucken:

Sub BlätterDrucken()
Dim sxSheet As Integer
If MsgBox("Wollen Sie alle mit 'Ja' markierten Blätter drucken ?", vbOKCancel, "Blätter drucken") = vbOK Then
Application.ScreenUpdating = False
For sxSheet = 1 To Worksheets.Count
If UCase(ActiveSheet.Cells(sxSheet, 2)) = "JA" Then
On Error GoTo FalschesBlatt
Sheets(Sheets(1).Cells(sxSheet, 1).Value).PrintOut
On Error GoTo 0
End If
Next sxSheet
End If
Application.ScreenUpdating = True
Exit Sub
FalschesBlatt:
MsgBox "Blattname " & Sheets(1).Cells(sxSheet, 1).Value & " existiert nicht !", vbCritical, "Blätter drucken!"
Resume Next
End Sub

Gruss Hasneuli
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige