Hallo Allerseits,
ich möchte gern, sobald ein Bedingung erfüllt ist 2 Druckbereich ausdrucken.
Hier das Druckmakro:
Z = Range("A2").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(Z, 15)).Select
With ActiveSheet.PageSetup
' .PrintArea = Range(Cells(2, 1), Cells(Z - 3, 15)).Address
' .PrintArea = Range(Cells(Z - 3, 1), Cells(Z + 3, 15)).Address
hier zusammengefaßt:
PrintArea = Range(Cells(2, 1), Cells(Z - 3, 15)).Address _
& Range(Cells(Z - 3, 1), Cells(Z + 3, 15)).Address
End With
klappt leider nicht,
mfg kurt aus k