Gruppe
Druck
Problem
Die Spalten A und B sind sehr schmal. Wie kann ich den Ausdruck so automatisieren, daß diese in drei Kolonnen nebeneinander gedruckt werden?
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