Hallo , ich suche eine simples Marko mit dem ich es schaffe dass wenn man auf einen Bottem drückt sich ein kleines Fenster öffnet und man auswählen kann wie viele Ausdrücke einer Seite haben möchte ( maximal 4 ) Und das der Drucker dann auch so viele druckt .
Sub prt()
anzahl = InputBox("Wieviele Ausdrucke ?", "Druck", 1)
If anzahl <= 4 Then ActiveWindow.SelectedSheets.PrintOut Copies:=anzahl, Collate:=True
End Sub