VBAエクセルにて印刷

こんにちわ。教えてください。VBAでActiveXコントロールをクリック
したのち、印刷のプレビューを表示したら、MegBoxメッセージを表示
させ ”はい””いいえ”を選択したいのですがうまくいきません。
ちなみに下記のプログラムです。


Private Sub 印刷_Click()

ActiveWindow.SelectedSheets.PrintPreview
Dim ans As Integer
ans = MsgBox("印刷しますか？", vbInformation + vbYesNo, "確 認")
Select Case ans
Case vbYes
Application.ActivePrinter = "Canon iR C3080/C3580 LIPSLX on Ne05:"
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

Case vbNo
MsgBox "故障履歴印刷をキャンセルします。"
End Select
End Sub

以上なんですがプレビュー後に”印刷しますが”が聞いてきません。
どうすればいいですか？

No.1 回答者： merlionXX 回答日時： 2008/10/06 17:06

PrintPreviewしたら、エクセルはプレビュー画面で「印刷」か「閉じる」等の指示待ちになりますからそこで止まってしまいますよ。

この回答へのお礼

やはりそうなんですね。いろいろ試したのですが自動実行できなくて
ありがとうございました。

お礼日時：2008/10/06 17:11

No.2 回答者： Avirex 回答日時： 2008/10/06 20:57

こんばんは。

簡単ですが↓でどうでしょうか？
Sub Macro1()
Dim ans As Integer
Sheet1.Select
ans = MsgBox("印刷しますか？", vbInformation + vbYesNo, "確 認")
Select Case ans
Case vbYes
Sheet1.PrintOut copies:=1
Case vbNo
MsgBox "故障履歴印刷をキャンセルします。"
End Select
End Sub
印刷範囲指定したい場合はマクロで記録して、不要部分をトリムください。