Thema: Druck einer Tabelle mit wechselndem Wiederholungszeilentext

Home

Gruppe

Druck

Problem

Die Tabelle soll mit wechselndem Wiederholungszeilentext gedruckt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub VariableZeile()
   Dim iCount As Integer, iCounter As Integer
   Range("A1").Select
   iCount = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")
   ActiveSheet.PageSetup.PrintTitleRows = "1:1"
   For iCounter = 1 To iCount
      Range("A1").Value = "Wiederholungszeile " & iCounter & ". Seite"
      ActiveSheet.PrintOut from:=iCounter, To:=iCounter
   Next iCounter
   Range("A1").Value = "Wiederholungszeile"
End Sub

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

PDF Drucken VBA	Dynamischer Datenbereich im Diagramm
Generierung von Tabs per VBA + Sammeldruck	Bereich als Bild speichern.
Akt. Datum und Uhrzeit am gedruckten Dokument	1. freie Zelle in nicht zusammenhängenden Bereich
Bestimmtheitsmass nach vorgegebenen Bereich	UserForm im Querformat drucken
Bestimmten Bereich anhand Zeilenabgabe kopieren	Bereich löschen
Array - Index außerhalb des gültigen Bereichs	zoom auf Druckbereichsbreite anpassen
Bilder in Registerblatt drucken	Bereich syncronisieren II
PDF eventuell Ausdruck sperren?	Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite	Druckprobleme....
Definitionsbereich	Bereich von rechts nach links auslesen?
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Namen definieren für bestimmten Bereich	Nur einen Eintrag im Bereich zulassen
Kommentar in erste zelle einess Bereiches	Bestimmte Zeilen/ Spalten nicht mitdrucken
bedingte Formatierung für zellenbereich	Diagramme DIN A3 drucken
Summewenn mit abhängigen Bereichen	Bereiche in separates sheet
Summewenn mit abhängigen Bereichen	Automatischen Andruck auf Standartdrucker erzeugen
Absturz bei lokalen Bereichsnamen	Druckerauswahl
Blätter autom. ein-/ausblenden + drucken	Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung	Arbeitsmappendruck
Teilbereich einer Zelle einfärben	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Fehler 1004 beim Druck einer PDF - mit Screenshot
Gruppierten Bereich sperren	Bestimmte Zahlen aus einem Bereich
Bereich nur unter best. Voraussetzg. summieren	Druckeinstellungen für mehrere Drucke übernehmen
Name eine benannten Bereiches finden	Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken	Druckparameter an neue Datei