Talán így.
Sub AktivNyomtató()
MsgBox "Az aktiv nyomtató... " & _ Application.ActivePrinter End Sub
Üdv:mmimr