Linie
martin
mit der folgenden anweisung lege ich den druckbereich fest.
Private Sub Worksheet_Activate()
'*** Legt den Druckbereich fest ***
On Error Resume Next
Dim intRow As Integer
intRow = 1
Do Until Cells(intRow, 10) = 0
intRow = intRow + 1
Loop
Worksheets("Adresse").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & Range(Cells(1, 1), Cells(intRow - 1, 12)).Address
End Sub
jetzt mein problem:
gibt es eine möglichkeit unterhalb des druckbereichs eine linie einzufügen?
für eure hilfe wäre ich dankbar.
gruss/martin
Anzeige