マクロで印刷ができません

質問

簡単な表を作成し、デザインモードでフォームコントロールでボタンを作成し、マクロの作成をしました。
印刷するためにボタンをクリックしても　印刷プレビューで画面が止まってしまいます。
ところがプレビュー画面を閉じると印刷が始まります。
何度やりかえてもマクロで最後まで印刷ができません。
記述は次のようになっています。
プリントも記述されているようなのですが・・・・
エクセル２００７を使っています。
どなたか助けてください

Sub ボタン3_Click()
'
' ボタン3_Click Macro
'

'
ActiveSheet.Shapes("Button 3").Select
Selection.Characters.Text = "ボタン 3"

Range("B3:E12").Select
ActiveSheet.PageSetup.PrintArea = "$B$3:$E$12"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

回答No.1

HERO TKS（@HERO_TKS） · ベストアンサー

＞ActiveWindow.SelectedSheets.PrintPreview
消してみては？

回答No.2

hana-hana3

＞印刷プレビューで画面が止まってしまいます。

それが仕様なので、印刷プレビューを実行しないマクロ（ActiveWindow.SelectedSheets.PrintPreviewを削除）にしないと、今の状況から抜ける事はできません。

印刷プレビューが必要なら、いまのままつかい続けるしかありません。
その場合は、ActiveWindow.SelectedSheets.PrintOut Copies:=1を削除して、プレビュー画面の印刷ボタンをクリックして印刷を実行する方法にしても良いでしょう。