SetupDialogの[プロパティ]ボタンの設定値が取得したい!!

こんにちは。
ActiveReportを使用してプリンタのダイアログを表示してます。        
以下のコードで画面上の各項目の値は取得できているのですが、
プリンタ名の右側にある[プロパティ]ボタンをクリックし、
その画面内で設定された値を取得することは可能ですか??

blnFlg = False
With レポート名.Printer
        blnFlg = .SetupDialog
        If Not blnFlg Then GoTo Exit Sub '処理を終了
        
        strPrtName = .DeviceName   'プリンタ名称
        lngPrtSize = .PaperSize    '用紙サイズ
        lngPrtBin = .PaperBin      '給紙方法
        lngPrtHokou = .Orientation '印刷方向
End With