« Yahoo ドライブ | Main | エンジニア向けソーシャルブックマーク okyuu.com »

May 21, 2008

エクセルで自動印刷

エクセルシートにデータを貼り付けると(シートに変更があると)

自動印刷するVBAを作りました。

----------------

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
Application.EnableEvents = False

    Cells.Select
    Selection.ClearContents
    Range("A1").Select

Application.EnableEvents = True

----------------

考えたフローは、
1.印刷をする
2.イベントのチェックを止める
3.データのクリアー
4.イベントのチェックを始める

イベントのチェックを止めておかないと、”データクリアー”時に
イベントが発生してしまい、ループしてしまいます。
Worksheet_Changeを使用するときにはループしないよう、
Application.EnableEvents = False
処理
Application.EnableEvents = True

とするとよいようです。


  ブログランキング

|

« Yahoo ドライブ | Main | エンジニア向けソーシャルブックマーク okyuu.com »

Excel」カテゴリの記事

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/68055/41273282

Listed below are links to weblogs that reference エクセルで自動印刷:

« Yahoo ドライブ | Main | エンジニア向けソーシャルブックマーク okyuu.com »