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

Makro: Nur 1.Seite drucken

Forumthread: Makro: Nur 1.Seite drucken

Makro: Nur 1.Seite drucken
16.08.2002 05:03:47
Oliver Biermann
Im folgenden Makro moechte ich nur die 1. Seite des Tabellenblattes "Drucken" ausdrucken. Hat einer eine Idee wie das zu machen ist? Danke euch.

Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "xxx"
With Sheets("Drucken")
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "xxx"
End Sub




Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro: Nur 1.Seite drucken
16.08.2002 06:03:34
Hajo_Zi
Hallo Oliver

schreibe

.PrintOut From:=1, To:=1, Copies:=1


Gruß Hajo

Re: Makro: Nur 1.Seite drucken
16.08.2002 06:12:07
Oliver Biermann
Ich bin ein Dummerchen. Komisch, ich habe mal Pascal 7.0 gelernt und sogar eine Datenbank programmiert (mit anderen zusammen), mit toller grafischer Benutzeroberflaeche, aber davon scheint nicht mehr so viel haengengeblieben zu sein. Vielleicht werde ich mich doch noch mal mit VB beschaeftigen. Auf Dich ist jedenfalls Verlass hier. Danke und ich probier's gleich mal Deinen Tip aus.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Nur die erste Seite eines Excel-Dokuments drucken


Schritt-für-Schritt-Anleitung

Um nur die erste Seite eines Excel-Dokuments zu drucken, kannst du ein einfaches Makro erstellen. Folge diesen Schritten:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, das du drucken möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.
  4. Kopiere und füge den folgenden Code ein:

    Sub Drucken()
       Application.ScreenUpdating = False
       ActiveWorkbook.Unprotect "xxx" ' Passwort anpassen
       With Sheets("Drucken")
           .Visible = True
           .PrintOut From:=1, To:=1, Copies:=1
           .Visible = xlSheetVeryHidden
       End With
       ActiveWorkbook.Protect "xxx" ' Passwort anpassen
    End Sub
  5. Passe das Passwort an, falls erforderlich.

  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Führe das Makro aus, indem du ALT + F8 drückst, das Makro wählst und auf Ausführen klickst.

Mit diesem Excel VBA Druck-Makro kannst du sicherstellen, dass nur die erste Seite des Arbeitsblattes "Drucken" ausgegeben wird.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen.
  • Fehler: Die Seite wird nicht korrekt gedruckt.

    • Lösung: Stelle sicher, dass das Arbeitsblatt "Drucken" die richtigen Druckeinstellungen hat. Überprüfe die Seitenlayout-Optionen und den Druckbereich.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du auch die Druckeinstellungen manuell anpassen:

  1. Gehe zu Datei > Drucken.
  2. Wähle im Dropdown-Menü den gewünschten Drucker aus.
  3. Klicke auf Seiten einrichten.
  4. Setze den Druckbereich so, dass nur die erste Seite umfasst ist.
  5. Klicke auf Drucken.

Diese Methode erfordert keinen VBA-Code, ist jedoch weniger flexibel.


Praktische Beispiele

Hier ist ein Beispiel für die Verwendung des Makros:

Angenommen, dein Arbeitsblatt "Drucken" enthält Berichte, und du möchtest nur die erste Seite für eine Besprechung ausdrucken. Mit dem oben beschriebenen Makro kannst du dies schnell erledigen, ohne den gesamten Bericht drucken zu müssen.


Tipps für Profis

  • Anpassung des Makros: Du kannst das Makro erweitern, um mehrere Kopien oder verschiedene Seiten zu drucken. Ändere einfach die Werte in .PrintOut From:=1, To:=1, Copies:=1 zu deinen Bedürfnissen.

  • Fehlerbehebung: Nutze Debug.Print innerhalb deines Codes, um Fehler zu identifizieren und die Ausführung des Makros zu überwachen.

  • VBA-Referenzen: Wenn du tiefer in die VBA Excel Druck-Programmierung einsteigen möchtest, schaue dir die Excel VBA-Dokumentation an, um mehr über die verfügbaren Objekte und Methoden zu erfahren.


FAQ: Häufige Fragen

1. Kann ich das Makro auch in anderen Excel-Versionen verwenden?
Ja, das Makro funktioniert in den meisten Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2013, 2016 und 2019.

2. Was mache ich, wenn ich kein Passwort für das Arbeitsblatt habe?
Du kannst die Zeilen mit ActiveWorkbook.Unprotect und ActiveWorkbook.Protect entfernen, wenn du keine Passwortsicherung benötigst.

3. Wie kann ich das Makro für andere Seiten anpassen?
Ändere einfach die Werte in .PrintOut From:=1, To:=1 zu den Seiten, die du drucken möchtest, z.B. .PrintOut From:=2, To:=3, um die Seiten 2 bis 3 zu drucken.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige