Mit dem diesem VBA-Makro ist es möglich einen definierten Bereich pro Spalte zu drucken.
Bei diesem Makro ist es dabei unerheblich in welcher Zelle einer Spalte der Cursor platziert wird, Es wird immer der fest definierte Bereich gedruckt.
Code
Sub Drucken_gewählte_Spalte() Dim Spalte As Long Spalte = ActiveCell.Column With ActiveSheet .Range(.Cells(6, Spalte), .Cells(20, Spalte)).PrintOut preview:=True End With End Sub