Gruppe
Druck
Problem
Der gelb markierte Bereich soll gedruckt werden. Die Positionierung ist so vorzunehmen, als würde das ganze Blatt gedruckt, Rahmen sind in den Druck nicht, Einstellung für der Zeilen- und Spaltenhöhe sind einzubehiehen.
StandardModule: basMain
Sub BereichDrucken()
Dim rng As Range
Application.ScreenUpdating = False
ActiveSheet.Copy
For Each rng In Range("A1").CurrentRegion
If rng.Interior.ColorIndex <> 6 Then
rng.ClearContents
End If
Next rng
Cells.Borders.LineStyle = xlLineStyleNone
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub