ich möchte einen Tabellenbereich über ein Makro drucken.
Kann mir Jemand ein Beispiel geben?
Gruß Werner
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim prnt As Variant
prnt = "bitte bereich eingeben"
ActiveSheet.PageSetup.PrintArea = InputBox(prnt)
End Sub