Sub 通常使うプリンタに設定されているプリンタ名を取得する()
    
    MsgBox Application.ActivePrinter
    
End Sub