印刷ダイアログのボタンを押すには？ (ID:84336)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 今、印刷ダイアログが開かれていたらOKボタンを押すということ をやっていますが、どうもうまくいきません。どのたかお気づき の点はないですか？ Private Sub Command1_Click() Form2.Show Const WINDOW_NAME As String = "印刷" Const BUTTON_NAME As String = "印刷(&P)" Dim hwnd As Long Dim hChild As Long Dim hret As Long '* ウィンドウを取得 hwnd = FindWindow(vbNullString, WINDOW_NAME) '* ウィンドウがない場合は、終了 If hwnd = 0 Then Exit Sub '* 子ウィンドウを取得 hChild = FindWindowEx(hwnd, 0, vbNullString, BUTTON_NAME) '* 子ウィンドウがない場合は、終了 If hChild = 0 Then Exit Sub hret = SendMessage(hChild, WM_ACTIVATE, 0&, 0&) hret = SendMessage(hChild, BM_CLICK, 0&, 0&) End Sub