Gruppe
Druck
Problem
Wie kann ich beim Druck mehrer Seiten Überträge erstellen?
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