Gruppe
Druck
Bereich
Bereich
Thema
Überträge bei Mehrseitendruck
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