wie kann ich den Druckbereich fuer die einzelnen Tabellenblaetter festlegen?
Das moechte ich gerne via Commandbutton tun.
Danke fuer die Hilfe!
Matthias
Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$118"
Application.Dialogs(xlDialogPrint).Show
End Sub