Talán így.

Sub AktivNyomtató()

MsgBox "Az aktiv nyomtató... " & _
Application.ActivePrinter

End Sub

Üdv:mmimr