VBA - Spalten bei Ausdruck

    Dim Antwort As VbMsgBoxResult, printRange As Range

    Set printRange = wsKal.Range("A" & startRowKal & ":C" & lastRowKal)



    Antwort = MsgBox("Möchten Sie die letzten 7 Zeilen drucken?", vbYesNo + vbQuestion, "Drucken bestätigen")

    If Antwort = vbYes Then

        With printRange.Borders

            .LineStyle = xlContinuous

            .Weight = xlThin

        End With

        printRange.PrintOut

        printRange.Borders.LineStyle = xlNone

    End If