was ist falsch?

Nachfolgend ein Auszug meines Makros, das ich aus dem Archiv habe. Was läuft da falsch?

1 sub pdf
2 strDrucker = Application.ActivePrinter
3 Application.ActivePrinter = "Acrobat Distiller auf LPT1:"
4 SendKeys DateiName, False
5 ActiveWindow.SelectedSheets.Printout ActivePrinter:="Acrobat Distiller auf LPT1:"
6 Appplication.ActivePrinter = strDrucker
7 end sub

Das Problem tritt in Zeile 3 auf.
Zu Zeile 5: Wie lautet der Befehl für die gesamte Mappe?

Vielen Dank vorab!
Peter