印刷ダイアログのボタンを押すには？

VB初心者 2004-07-02 02:32:16 No: 84336

今、印刷ダイアログが開かれていたら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

MM 2004-07-02 03:18:19 No: 84337

どこでうまくいってないのですか？