wie kann ich dem nach folgenden Code beibringen, dass die im Druckermenu angegebene Anzahl der Kopien gedruckt wird?..Es druckt immer nur einmal?
....
Dim Druckerauswahl
Druckerauswahl = Application.Dialogs(xlDialogPrinterSetup).Show
Worksheets("WKKlasseBeginner").PrintOut
....
Vielen Dank für Eure Hilfe
Peter S