人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

マクロで長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

1319037934
●拡大する

●質問者: hpknac
●カテゴリ:コンピュータ 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
ベストアンサー

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

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


hpknacさんのコメント
ありがとうございました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ