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.2

Avirex

こんばんは。
簡単ですが↓でどうでしょうか？
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
印刷範囲指定したい場合はマクロで記録して、不要部分をトリムください。

回答No.1

merlionXX

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

お礼

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