Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

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

Anzeige
Anzeige
Anzeige
Anzeige
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)

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