HERBERS Excel-Forum - die Beispiele

Thema: Blatt auswählen und Zellen nacheinander drucken

Home

Gruppe

Druck

Problem

Über eine InputBox soll ein Arbeitsblattname abgefragt werden. In dem ausgewählten Blatt soll ein vorgegebener Bereich auf Inhalt geprüft und - wenn nicht leer - zellenweise gedruckt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub SerieDrucken()
   Dim rng As Range
   Dim sWks As String
   sWks = InputBox("Tabellenblatt:", , "Ausgaben")
   If sWks = "" Then Exit Sub
   With Worksheets(sWks)
      For Each rng In .Range("A1:A5").Cells
         If Not IsEmpty(rng) Then
            Range("A1").Value = rng.Value
            ActiveSheet.PrintPreview
         End If
      Next rng
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite

PDF Drucken VBA Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen Bilder in Registerblatt drucken
Regex für Filterung von Daten in html-seiten PDF eventuell Ausdruck sperren?
Druchbereiche auf eine Seite Seitenumbuch
Druckprobleme.... Text aus Zelle in Internet Seite
Skript funktioniert nur auf einer seite?!?! Tabellenblätter Ausdruck gruppieren
Drucken mit VBA Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken Automatischen Andruck auf Standartdrucker erzeugen
Seitennummerierung in Fußzeile Grösse Textbox vom Seitenrand abhängig machen
Druckerauswahl Excel links auf seite
Blätter autom. ein-/ausblenden + drucken Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung Arbeitsmappendruck
Button für Seite einrichten Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei Fehler 1004 beim Druck einer PDF - mit Screenshot
Druckeinstellungen für mehrere Drucke übernehmen Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken Druckparameter an neue Datei
Button zum Ausdrucken Druckparameter an Datei mitgeben
Makro für ereignisabh. Druck verschiedener Seiten Excel Seriendruck im PDF-Format
Per VBA drucken - Adobe PDF on ne0x Drucken, nur wenn Bedingung erfüllt ist!
Probleme beim Einfügen man. Seitenumbrüche (VBA) variablen Druckbereich definieren
Automatischer Seitenumbruch Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen?? Wann zuletzt ausgedruckt
Excel druckt keine Bilder! Datenfelden in Excel auf Seite schreiben.
sql Ausdruck like Excel Druckmakro - VBA Experten gesucht