VBA-Programmierung in Microsoft Excel

Überträge bei Mehrseitendruck

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