Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.07.2025 07:31:08
Bedingte Formatierung mit mehreren Argumenten
07.07.2025 20:58:05
plötzlich keine Rückmeldung von Excel mehr bei Makro
07.07.2025 20:51:22
Wie TYP() einer Zelle ändern (wenn WERT nicht funktioniert)
07.07.2025 19:11:28
Minimum über 12 Monate
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken bestimmte Seiten

Forumthread: Drucken bestimmte Seiten

Drucken bestimmte Seiten
17.02.2005 17:25:02
josch
Hallo,
wie ich den Drucken-Dialog ansteuern kann weiß ich.
Ich sollte allerdings das Ganze so mit VBA automatisieren, dass wenn eine bestimmte Zelle (bzw. in meiner Datei einen Namen in einer Zelle) markiert ist, auch nur eine bestimmte Seite gedruckt wird.
Will also das manuelle eingeben von... bis... Seite umgehen.
Weiß jemand Rat?
Anzeige

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

Kategorie
Druck
Tags
#automatisierung #drucken #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Drucken bestimmte Seiten
17.02.2005 17:42:06
Thom@sCH
Hallo Josch
Schau dir mal das an:

Sub Drucken()
intFrom = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Seite von:", "Druckbereich")
intTo = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Seite bis:", "Druckbereich")
intCopies = InputBox("Druckbereich eingeben:" + Chr(13) + Chr(13) + "Anzahl Exemplare:    (mind. 1)", "NuPro - Nutzungsprogramm", "1")
ActiveSheet.PrintOut From:=intFrom, _
To:=intTo, Copies:=intCopies
End Sub

Gruss Thomas
Anzeige
AW: Drucken bestimmte Seiten
Reinhold
hallo Josch,
beim VBA- Druckbefehl .printout kannst du die zu druckenden Seiten angeben.
.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
Grüße Reinhold
AW: Drucken bestimmte Seiten
18.02.2005 08:46:02
Josch
Danke! die Antwort von Thom@sCH hat mir geholfen.
Muss jetzt nur noch, da ich ja nicht unbedingt ne Seíte eingeben will sondern nen Namen, den eingegebenen Namen in Seiten umwandeln... Thanks
Anzeige
AW: Drucken bestimmte Seiten
18.02.2005 09:01:50
Thom@sCH
Hallo Josch
Sollte ja nicht ein grosses Problem sein:

Sub Drucken()
intFrom = Worksheets("Tabelle1").Range("A1").Value
intTo = Worksheets("Tabelle1").Range("A2").Value
intCopies = 1
ActiveSheet.PrintOut From:=intFrom, _
To:=intTo, Copies:=intCopies
End Sub

Gruss Thomas
Anzeige
AW: Drucken bestimmte Seiten
18.02.2005 10:24:00
Josch
so in der Art hab ich es gemacht. ist überhaupt kein Problem.
Jetzt sollte ich nur noch wissen, wie ich einen bestimmten Drucker, hier PDF-Drucker zum Druck festlegen kann.
AW: Drucken bestimmte Seiten
18.02.2005 10:32:02
Josch
Hat sich auch erledigt. Geht ja auch mit diesem Befehl!
Danke!

Forumthreads zu verwandten Themen

Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
Anzeige
nur bestimmtes TB und Bereich drucken
Gisela

Hallo,
ich habe ein Tabellenblatt in dem in einigen Zellen die weiteren TB-Namen vorhanden sind.
Es soll jeweils die TB gedruckt werden, deren Name in der jeweiligen Zelle steht.
Da ich nur begrenzte VBA-Kenntnisse habe, komme ich leider nicht weiter.
Hier mein bisheriges Ergebn...
04.10.2012 09:22:18
Thread-ID: 1280472
5 Beiträge
Anzeige
nur bestimmte Blaetter per VBA drucken
Andreas

Hallo,
ich habe eine Arbeitsmappe mit x Blaettern und manche von denen sind ausgeblendet.
Ich habe eine userform mit einer druckerauswahl. Nun moechte ich gerne die ausgeblendeten Blaetter mit CommandButton1 ausdrucken, aber nur wenn diese in Zelle "A4" Daten enthalten.
Kann mir vie...
11.08.2014 10:31:14
Thread-ID: 1375598
7 Beiträge
Anzeige
Nur bestimmte Seiten von bestimmten Tabellen druck
bestimmten

Liebe Excelperten,
ich habe ein Makro, mit dem ich einen Druckauftrag sende. Allerdings möchte ich nicht alles drucken. Meine Mappe hat 14 Tabellen, wovon ich nur die ersten 13 drucken möchte. Jede Tabelle hat 2 Seiten, wovon ich aber nur die erste drucken möchte. Hier gibt es doch bestimmt...
17.03.2016 17:32:41
Thread-ID: 1482679
3 Beiträge
Bestimmte Seitenanzahl über Makro Drucken
Andi

Suche nach einer Möglichkeit, wenn über einen Button die zu druckenden Zeilen ermittelt wurden, das diese anhand der gezählten Zeilen auf die vier Druckmakros aufgeteilt werden.
Das Auszählen der Seiten funktioniert, das Drucken über die Makros ebenfalls. Allerdings muß ich dies noch händi...
20.12.2016 20:05:46
Thread-ID: 1531168
7 Beiträge
Anzeige
VBA Drucken mit variabler Seitenanzahl - Word
Hendrik

Hallo zusammen,
ich habe hier in diesem Forum einen passenden Code gefunden, für das automatische Drucken eines Dokuments. Leider komme ich nicht drauf, wie ich meine Variablen ("Seite" und "Kopien" richtig deklariere.
Der Code funktioniert einwandfrei ohne Variablen.
Sub Drucker...
11.07.2017 14:05:34
Thread-ID: 1568527
9 Beiträge
Nur die Hälfte aller Seiten drucken
Tobias Braumann

Hallo,wenn man in Excel einen Druckauftrag aus einem aktiven Blatt heraus startet, dann werden automatisch nur die Seiten gedruckt, die auch Inhalte haben (theoretisch ist das Arbeitsblatt ja unendlich groß). Ich suche nach einer Möglichkeit, in einer Routine die Anzahl dieser Blätter abzufrage...
07.09.2002 12:10:07
Thread-ID: 157489
3 Beiträge
bestimmte Seiten drucken?
Selma
Hi Leute,

ich brauche ein Makro der schaut, ob in Spalte C ein "x" steht, wenn ja
dann Bereich A1:A42 drucken, wobei der Zelleninhalt A41 abhängig ist
vom Zelleninhalt Spalte B.

Bsp:

B1 = Baubesprechung C1 = x
B2 = Zeichnungen C2 = x
B3 = Baupläne C3 =
09.09.2003 18:14:38
Thread-ID: 307429
4 Beiträge
Nur bestimmte Farben drucken
Peter Stadtlander
Hallo,

zur Eingabe von Daten und aufgrund der besseren Übersichtlichkeit habe auf dem Tabellenblatt einige Zellen oder Zeilen mit verschiedenen Farben hinterlegt. Ich möchte aber, das einige Farben nicht gedruckt werden.
Bsp: helles Grau --> Drucken
Gelb --> Nicht drucken
...
26.09.2003 07:40:49
Thread-ID: 315501
2 Beiträge
ausdruck nur bestimmter seiten
dietmar
hallo community,
eine tabelle kann bei mir 2, 4 oder 6 seiten lang sein.
nun möchte ich aber jeweils nur die 1. seite ausdrucken, wenn die tabelle 2 seiten lang ist,
die ersten 2 seiten ausdrucken, wenn die tabelle 4 seiten lang ist, usw.
wie mache ich das per vba?
danke, dietmar...
04.02.2004 22:38:10
Thread-ID: 376746
4 Beiträge
nur bestimmte Zellfarben drucken
Emil
Hallo,
auf einem Arbeitsblatt gibt es gelb und grau markierte Zellen. Die graue Farbe soll beim Drucken erscheinen, die gelbe nicht.
Wie kann man das möglichst einfach machen?
Gruß Emil
23.05.2006 12:33:30
Thread-ID: 766841
5 Beiträge
nur bestimmte excelblätter ausdrucken per makro?
Horst

Hey !
Ich moechte gerne ueber einen menuepunkt per makro von mir voher im quellcode angebene excelblaetter ausdrucken!
Also meinetwegen tabellenblatt2 tabellenblatt5
und dann auch nur wieder ganz bestimmte bereiche vorbestimmen (z.b. erzeugte diagramme)
Das ganze moechte ich per...
17.08.2006 09:05:51
Thread-ID: 792602
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Seiten in Excel drucken

Schritt-für-Schritt-Anleitung

Um in Excel bestimmte Seiten zu drucken, kannst du VBA 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. Erstelle ein neues Modul: Klicke im Menü auf Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub Drucken()
    Dim intFrom As Integer
    Dim intTo As Integer
    Dim intCopies As Integer

    intFrom = Worksheets("Tabelle1").Range("A1").Value
    intTo = Worksheets("Tabelle1").Range("A2").Value
    intCopies = 1

    ActiveSheet.PrintOut From:=intFrom, _
                         To:=intTo, _
                         Copies:=intCopies
End Sub

  4. Ändere die Zellreferenzen: Stelle sicher, dass die Zellen A1 und A2 die Seitenzahlen enthalten, die du drucken möchtest.

  5. Führe das Makro aus: Drücke F5, um das Makro zu starten, oder wechsle zurück zu Excel und weise das Makro einem Button zu.

Häufige Fehler und Lösungen

  • Fehler: "Ungültige Seitenzahl"
    Lösung: Überprüfe die Werte in den Zellen A1 und A2, um sicherzustellen, dass sie gültige Seitenzahlen enthalten.

  • Fehler: Drucker nicht gefunden
    Lösung: Stelle sicher, dass der gewählte Drucker korrekt eingerichtet ist und online ist.

  • Fehler: VBA läuft nicht
    Lösung: Überprüfe die Makrosicherheitseinstellungen in Excel unter Datei > Optionen > Trust Center.

Alternative Methoden

Es gibt auch alternative Methoden, um in Excel bestimmte Seiten zu drucken. Eine Möglichkeit ist das manuelle Festlegen des Druckbereichs:

  1. Markiere den Bereich, den du drucken möchtest.
  2. Gehe zu Seitenlayout > Druckbereich > Druckbereich festlegen.
  3. Drucke dann über Datei > Drucken, um nur diesen Bereich zu drucken.

Ein weiteres Beispiel ist die Verwendung von Excel-Formeln, um die Seitenzahlen zu bestimmen.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Automatisierung des Druckens in Excel:

  • Beispiel 1: Wenn du in Zelle A1 den Namen eines Blattes hast, kannst du mit VBA die Seitenzahl ermitteln und drucken:

    Sub DruckenMitName()
    Dim sheetName As String
    sheetName = Worksheets("Tabelle1").Range("A1").Value
    ' Hier zusätzliche Logik zum Ermitteln der Seitenzahl
    ' und Drucken hinzufügen
End Sub

  • Beispiel 2: Um nur bestimmte Seiten zu drucken, wenn eine Bedingung erfüllt ist, kannst du folgende Struktur nutzen:

    If Worksheets("Tabelle1").Range("B1").Value = "Drucken" Then
    ' Drucke Seiten
End If

Tipps für Profis

  • Verwende benannte Bereiche: Anstatt Zellreferenzen zu verwenden, kannst du benannte Bereiche für mehr Klarheit nutzen.

  • Drucker vorab festlegen: Du kannst den Drucker im Code festlegen, um immer denselben Drucker zu verwenden:

    ActivePrinter = "Dein Drucker Name"

  • Voransicht nutzen: Nutze die Preview-Option im .PrintOut-Befehl, um eine Druckvorschau anzuzeigen:

    ActiveSheet.PrintOut Preview:=True

FAQ: Häufige Fragen

1. Wie kann ich in Excel nur bestimmte Seiten drucken?
Du kannst VBA verwenden, um spezifische Seiten zu drucken, indem du die Seitenzahlen in Zellen speicherst und den .PrintOut-Befehl benutzt.

2. Kann ich auch mit Word bestimmte Seiten drucken?
Ja, in Word kannst du die gleiche Logik verwenden, um bestimmte Seiten zu drucken, indem du den Drucken-Dialog mit den entsprechenden Seitenzahlen ansteuerst.

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