HERBERS Excel-Forum - die Beispiele

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