Das ganze sollte allerdings, wenn möglich ohne Makros funktionieren.
Kann mir bei diesem Problem jemand helfen, oder führt hierbei kein weg an einem Makro vorbei?
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub
Private Sub CommandButton1_Click()
ActiveSheet.PrintOut
End Sub