Excel VBA Anzahl der Ausdrucke aus Inputbox übergeben

[Excelmania]

Guten Morgen.

Ich möchte aus einer Inputbox die Anzahl der zu druckenden Exemplare übergeben. Egal was eingegeben wird, Excel druckt immer nur ein Exemplar.

Dim Anzahl As Variant

Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
        If Druckerwahl = False Then Exit Sub
        Anzahl = InputBox("Anzahl Kopien", "Drucken", 1)
        ThisWorkbook.ActiveSheet.PrintOut Copies:=Anzahl

Kann mir jemand sagen, woran das liegt?

 

[meph!sto]

Anzahl = InputBox("Anzahl Kopien", "Drucken", 1)

Was passiert wenn du die "1" da änderst ?

 

[Excelmania]

Dann steht keine Vorauswahl drin.

Es schein an PDF24 zu liegen. Irgendwie sammelt das Programm die Ausdrucke nicht. Wenn ich den MS PDF-Drucker verwende dann klappt es.

 

[Excelmania]

Könnte jemand das gleiche Problem feststellen?