Hallo und guten Morgen!
Vielen Dank, das klingt wirklich sehr plausibel, allerdings habe ich einen Fehler gemacht?
To:=Sheets("Evaluationsbogen").Range("I2"), Copies:=1, Preview:=False,
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
Der Wert ist in Zelle "I2", hatte noch mal nachgeschaut. Nur zur Info... .
Hast Du eine Idee was ich falsch gemacht habe?
Liebe Grüße
|