VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Druck einer Tabelle mit wechselndem Wiederholungszeilentext

Gruppe

Druck

Bereich

Bereich

Thema

Druck einer Tabelle mit wechselndem Wiederholungszeilentext

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