Könnt Ihr mir den Code für mein Problem nennen?
Bei dem mit der der Maus markierten Bereich soll via Makro der Druckbereich festgelegt werden, und mit dem Standartdrucker gedruckt werden.
Würde mich über Eure Hilfe sehr freuen.
Gruß
Steffi
Sub drucken()
With ActiveSheet
.PageSetup.PrintArea = Selection.Address
.PrintOut
End With
End Sub
Schönen Gruß,
Andi
Sub tt()
With ActiveSheet
With .PageSetup
.Orientation = xlLandscape
.PrintArea = Selection.Address
End With
.PrintOut
With .PageSetup
.Orientation = xlPortrait
.PrintArea = ""
End With
End With
End Sub