Gruppe
Druck
Problem
Vor dem Druck nach soll nach jedem Datensatz eine Zeile eingefügt und danach wieder gelöscht werden.
StandardModule: Modul1
Sub LeerZeilen()
Dim iRowL As Integer, iRow As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
Rows(iRow).Insert
Next iRow
ActiveSheet.PrintPreview
iRowL = Cells(Rows.Count, 1).End(xlUp).Row - 1
For iRow = iRowL To 1 Step -2
Rows(iRow).Delete
Next iRow
Application.ScreenUpdating = True
End Sub
Sub ZeilenHoehe()
With Range("A1").CurrentRegion.Rows
.RowHeight = .RowHeight * 2
ActiveSheet.PrintPreview
.RowHeight = .RowHeight / 2
End With
End Sub