Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druck einer Tabelle mit wechselndem Wiederholungszeilentext

Gruppe

Bereich

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