1319037934 マクロで長3の封筒印刷をすると


キャノンプリンタからOK確認のダイアログボックスが出てきます。
何通も印刷するので、そのたびにエンターキーを押さないといけないので不便です。
マクロからあるいは、他の方法で自動で印刷する方法はないでしょうか?

Sub 封筒で宛名の連続印刷()
Application.ScreenUpdating = False '画面の更新を停止
'「X」という名前の変数を使うことを宣言(Dim)
Dim X
'印刷処理(以下5行)
For X = Range("BM34").Value To Range("BT34").Value Step 1
Range("BM7").Value = X
Range("A1:BH92").Select '各シートの印刷範囲を指定する。
'各シートの1枚目だけ印刷する指定をする。
'印刷実行
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("BM7").Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next X
MsgBox "プリンタへのデータ送信を終了しました", vbOKOnly, "印刷終了"
Application.ScreenUpdating = True '画面の更新再開
End Sub

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2011/10/20 00:25:35
  • 終了:2011/10/27 00:30:02

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982011/10/20 13:25:45

http://www.officetanaka.net/excel/vba/statement/SendKeys.htm

SendKeysを使用して エンターを 送るのは いかがでしょうか?

id:hpknac

ありがとうございました。

2011/10/27 00:42:14

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません