VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Überträge bei Mehrseitendruck

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

    


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