Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: nur sichtbare Seiten ausdrucken!

nur sichtbare Seiten ausdrucken!
Lisa
Hallo zusammen, mittels Makro lasse ich alle Tabellenblätter einblenden!
Hat jemand eine Idee wie ich alle SICHTBAREN Tabellenblätter ausdrucken lassen kann?

Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub
Für jeden Vorschlag wäre ich dankbar!
LG Lisa
Anzeige
AW: nur sichtbare Seiten ausdrucken!
01.09.2011 16:16:21
Kai
Hallo,

Sub AlleBlätterDrucken()
ThisWorkbook.PrintOut
End Sub

Gruß
Kai
AW: nur sichtbare Seiten ausdrucken!
01.09.2011 16:21:16
Kai
p.s.
oder mit

Application.Dialogs(xlDialogPrint).Show
und dann gesamte Arbeitsmappe wählen.
Aber das ginge ja auch ohne vba
Anzeige
AW: nur SICHTBARE SEITEN ausdrucken!
02.09.2011 13:08:58
Lisa
Hallo und danke für die Antworten,
hmm, dann drucke ich alle Blätter der Mappe aus, ok da habe ich mich wohl falsch ausgedrückt!
Ich blende bestimmte Tabellenblätter aus, dass Makro war irreführend!
ich habe also nur einen Teil der Tabellenblätter meiner Mappe sichtbar! Diese sollten dann auch nur gedruckt werden.
ich hoffe nun ist es etwas klarer
Gibt es hierzu vieleicht einen Idee?
LG Lisa
Anzeige
Seltsamer Betreff, wn doch ALLE sichtbar sind! orT
01.09.2011 17:06:24
Luc:-?
Gruß Luc :-?
AW: Seltsamer Betreff, wn doch ALLE sichtbar sind! orT
02.09.2011 13:04:32
Lisa
stimmt im nächsten Step, blende ich bestimmte Tabellenblätter wieder aus und somit macht es wieder Sinn!
LG Lisa
Also, dann musst du in deine Druckschleife ...
02.09.2011 14:59:57
Luc:-?
…die Abfrage der Blattsichtbarkeit einbauen, Lisa,
oder ein Feld (Array) aus allen sichtbaren Blättern bilden und nur diese wie üblich bzw vorgeschlagen ausdrucken. Letzteres hat den Vorteil, dass die Druckvorschau bereits alle relevanten Blätter enthält und die bei entsprd Vorgabe alle in die flfd Seitennummerierung eingehen.
Feldvariante:

Dim DrBlx() As Long, Shx As Long, Blatt As Worksheet '…usw
For Each Blatt In ActiveWorkbook
If Blatt.Visible = xlSheetVisible Then Redim Preserve DrBl(Shx): _
DrBlx(Shx) = Blatt.Index: Shx = Shx + 1
Next Blatt
ActiveWorkbook.Sheets(DrBlx).Select '…usw
Hieran anschließend kannst du den Druckdialog oder die Druckvorschau aufrufen bzw gleich drucken (statt .Select .PrintOut).
Gruß Luc :-?
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Nur sichtbare Seiten in Excel ausdrucken


Schritt-für-Schritt-Anleitung

Um nur die sichtbaren Seiten in Excel auszudrucken, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code in das Modul ein:

    Sub NurSichtbareSeitenDrucken()
       Dim DrBlx() As Long, Shx As Long, Blatt As Worksheet
    
       For Each Blatt In ActiveWorkbook.Worksheets
           If Blatt.Visible = xlSheetVisible Then
               ReDim Preserve DrBlx(Shx)
               DrBlx(Shx) = Blatt.Index
               Shx = Shx + 1
           End If
       Next Blatt
    
       ActiveWorkbook.Sheets(DrBlx).PrintOut
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, um nur die sichtbaren Blätter zu drucken.

Diese Methode ist besonders nützlich, wenn du nur bestimmte Blätter ausdrucken möchtest, während andere ausgeblendet sind.


Häufige Fehler und Lösungen

  • Fehler: Alle Blätter werden trotzdem ausgedruckt.

    • Lösung: Stelle sicher, dass du die Sichtbarkeit der Blätter korrekt überprüfst. Der Code muss die Bedingung für sichtbare Blätter enthalten.
  • Fehler: Das Makro gibt eine Fehlermeldung aus.

    • Lösung: Überprüfe, ob alle Blätter sichtbar sind und ob das Makro korrekt eingefügt wurde.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch die integrierten Druckfunktionen von Excel nutzen:

  1. Wähle die Blätter aus, die du drucken möchtest, indem du STRG gedrückt hältst und auf die gewünschten Blätter klickst.
  2. Gehe zu Datei > Drucken.
  3. Wähle die Option Gesamte Arbeitsmappe oder Ausgewählte Blätter.
  4. Klicke auf Drucken.

Das ist eine einfache Methode, um die Sichtbarkeit der Blätter manuell zu steuern, ohne eine Programmierung vorzunehmen.


Praktische Beispiele

Ein praktisches Beispiel für das Drucken sichtbarer Seiten könnte folgendermaßen aussehen:

  • Du hast eine Arbeitsmappe mit mehreren Tabellenblättern, von denen nur einige für den Druck relevant sind. Nutze das oben genannte Makro, um nur die sichtbaren Blätter auszudrucken.
  • Wenn du ein Inhaltsverzeichnis ausdrucken möchtest, stelle sicher, dass du nur das Blatt mit dem Inhaltsverzeichnis sichtbar machst und die anderen Blätter ausblendest.

Tipps für Profis

  • Excel Drucktitel für alle Blätter: Du kannst Drucktitel für alle Blätter einstellen, um sicherzustellen, dass der Kopf oder die Fußzeile bei jedem Druckvorgang erscheint.
  • Excel nur markierte Zellen drucken: Wenn du nur bestimmte Zellen drucken möchtest, markiere diese und wähle dann Drucken > Ausgewählte Zellen.
  • Du kannst auch die Druckvorschau nutzen, um einen Eindruck davon zu bekommen, wie dein Druckergebnis aussehen wird, bevor du tatsächlich druckst.

FAQ: Häufige Fragen

1. Kann ich nur bestimmte Zellen innerhalb eines sichtbaren Blattes drucken?
Ja, markiere die Zellen, die du drucken möchtest, und wähle dann die Option Drucken > Ausgewählte Zellen.

2. Wie kann ich ein Buchseite zum Ausdrucken einrichten?
Gehe zu Seitenlayout, um die Seiteneinstellungen und den Seitenbereich einzustellen, bevor du das Dokument druckst.

3. Was, wenn ich ein Inhaltsverzeichnis ausdrucken möchte?
Stelle sicher, dass das Inhaltsverzeichnis-B Blatt sichtbar ist und nutze die Druckoptionen, um nur dieses Blatt auszudrucken.

Beliebteste Forumthreads (12 Monate)

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