Access 印刷ダイアログの位置を変えたい

Question

##質問内容
Accessで一覧を印刷するときに、一覧をフォームで作ったものと、レポートで作ったものがあるのですが、フォームの方で印刷コマンドボタンを押したときに、レポートの印刷プレビューと印刷設定のダイアログの二つを表示するようにしてあります。

このときに、ダイアログを画面中央より左側、プレビューを画面中央より右側に位置を変え、お互いのウインドウが干渉しないようにしたいです。

因みに、印刷コマンドボタンを押したときは、とあるサイトを参考にし

'----------------------------
'印刷ボタンクリック時
'----------------------------
Private Sub Button_Print_Click()

    Const cstrRptName As String = "顧客別売上実績表"

    On Error GoTo Err_Handler

    'レポートをプレビューで開く
    
    DoCmd.OpenReport cstrRptName, acViewPreview
    
    DoCmd.MoveSize 12000, 567, 7371
    
    DoEvents

    '印刷ダイアログを表示
    
    DoCmd.RunCommand acCmdPrint
    
    DoCmd.MoveSize 567, 567, 7371
    
    DoEvents

Exit_Here:
    On Error Resume Next
    
    'プレビューを閉じる
    
    DoCmd.Close acReport, cstrRptName
    Echo True
    Exit Sub

Err_Handler:

    If Err.Number = 2501 Then
    
    'エラーを無視する
    
    Else
    
        MsgBox "エラー発生"
    
    End If
    
    Resume Exit_Here:

End Sub

のようになっています。
なお、プレビュー方は、右側に位置を変えることが出来ています。

回答よろしくお願いします。

Answer 1

印刷ダイアログは、モーダルウィンドウとして開きますので、閉じるまでは、他の部分は操作できないし、コードも閉じるまでは次のコードが実行されません。フォームをダイアログモード(acDialog)で開いたときの同じ動作と考えてください。

つまり、'DoCmd.RunCommand acCmdPrint'の後のコードは、印刷ダイアログを閉じるまで実行されないということです。

方法としては、WinAPIのSetWindowsHookExを使って操作する方法があります。下記にサンプルがあります。

vbaでmsgboxの位置を指定

WinAPIでフックを使うことになりますので、かなりのスキルが必要です。

別案としては、フォームで印刷ダイアログと同様の機能を持ったものを自作するという方法もあります。
印刷範囲や部数を設定するぐらいでいいのなら、こちらの方が簡単でしょう。

Comments

[退会済みユーザー]

簡単にはいかないということですね。
上記のものを参考にさせていただきます。
回答ありがとうございました。

Answer 2

office系などが提供するダイアログボックスの表示位置変更するのは難しいでしょうね。
通常表示位置などを変更しようとするには、ウィンドウのハンドルが必要なので、APIを駆使などすれば可能かもしれませんが。

印刷ダイアログはACCESSウインドウ内に表示されるので、印刷プレビューをポップアップして、アクセスウインドウと重ならないように調整は可能だと思います。