fehler beim kompilieren

aber schon nach der ersten zeile erscheint eine fehlermeldung "bezeichner".

Ich komme da also nicht weiter, habe aber auch zu wenig routine. was läuft falsch?

hier also:

Sub ()
Dim strAktDrucker As String
strakt drucker= application.Active Printer
Active sheet.Printout.ActivePrinter:=""
Application.ActivePrinter = strAktDrucker
End Sub

danke für eure stellungnahme.