Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überträge bei Mehrseitendruck

Gruppe

Bereich

Problem

Wie kann ich beim Druck mehrer Seiten Überträge erstellen?

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

StandardModule: basMain

Sub MehrSeitenDruck()
   Dim rngSource As Range, rngTarget As Range
   Dim iPage As Integer
   Set rngSource = Worksheets("Quellblatt").Range("A1").CurrentRegion
   Set rngTarget = Range("A2:F59")
   For iPage = 1 To rngSource.Rows.Count Step 58
      rngTarget.ClearContents
      rngTarget.Value = rngSource.Range( _
         rngSource.Cells(iPage, 1), _
         rngSource.Cells(iPage + 58 - 1, 6)).Value
      ActiveSheet.PrintPreview
   Next iPage
   rngTarget.ClearContents
End Sub

    

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