こんにちは。
ActiveReportを使用してプリンタのダイアログを表示してます。
以下のコードで画面上の各項目の値は取得できているのですが、
プリンタ名の右側にある[プロパティ]ボタンをクリックし、
その画面内で設定された値を取得することは可能ですか??
blnFlg = False
With レポート名.Printer
blnFlg = .SetupDialog
If Not blnFlg Then GoTo Exit Sub '処理を終了
strPrtName = .DeviceName 'プリンタ名称
lngPrtSize = .PaperSize '用紙サイズ
lngPrtBin = .PaperBin '給紙方法
lngPrtHokou = .Orientation '印刷方向
End With
ツイート | ![]() |