Hallo und guten Abend,
ich möchte vor dem Drucken einen Rahmen um den Selctierten Bereich setzen.
Dieses ist mir auch selber gelungen.
Hier mal einen Auszug:
Dim lLetzteT As Long
Set wksT = Worksheets("Tabelle1")
lLetzteT = IIf(wksT.Range("D65536") "", 65536, wksT.Range("D65536").End(xlUp).Row)
wksT.Range("A1:G" & lLetzteT).Borders(xlDiagonalDown).LineStyle = xlNone
wksT.Range("A1:G" & lLetzteT).Borders(xlDiagonalUp).LineStyle = xlNone
With wksT.Range("A1:G" & lLetzteT).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With wksT.Range("A1:G" & lLetzteT).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Da bei dieser Sache viel anzupassen ist wollte ich grundsätzlich mal wissen,
ob ich da meine Variable "wksT" und "lLetztT" zu einer zusammenfügen kann.
Ungefähr so:
Dim wksTdruck as ?
Set wksTdruck = wksT.lLetzteT
Mit dieser Variante hatte ich es versuch aber leider ...
Gruß Korl