Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Schmale Spalten nebeneinander drucken

Gruppe

Bereich

Problem

Die Spalten A und B sind sehr schmal. Wie kann ich den Ausdruck so automatisieren, daß diese in drei Kolonnen nebeneinander gedruckt werden?

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

StandardModule: basMain

Sub MultiSpaltenDruck()
   Dim rng As Range
   Dim iRow As Integer, iCountR As Integer
   Dim iRowT As Integer, iColT As Integer
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Set rng = Range("A1").CurrentRegion
   iCountR = 55
   Workbooks.Add 1
   iRow = 1
   iRowT = 1
   iColT = 1
   Do While iRow <= rng.Rows.Count
      For iCounter = 1 To 3
         rng.Range(rng.Cells(iRow, 1), _
            rng.Cells(iRow + iCountR - 1, 2)).Copy _
            Cells(iRowT, iColT)
         iRow = iRow + iCountR
         iColT = iColT + 2
      Next iCounter
      ActiveSheet.PrintPreview
      iColT = 1
   Loop
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

    

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