Excelマクロで Application.OnTime TimeValueで印刷が倍数で印刷される。

Question

－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Auto_Open()

 If Cells(163, 3) = Cells(163, 4) Then

  Application.OnTime TimeValue("21:46:20"), "月印刷"

 End If

 End Sub　　

－－－－－－－－－－－－－－－－－－－－－－－－－

Sub 月印刷()

   Sheets("温度月報印刷").Select

    'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1

         Sheets("sheet1").Select

Call Auto_Open

End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－

と言う感じでマクロを組んでいます。

Excelマクロで 定時印刷をしているのですが

Auto_Open()の中にApplication.OnTime TimeValueで時間を指定して

別ﾌﾟﾛｰｼﾞｬで印刷をしてAuto_Open()へ戻る様に組んでいます。

１回目の印刷は良いのですが２回目以降は印刷をするごとに２枚、４枚、８枚と印刷してしまいます。

どこが間違っているのかご教示お願いします。

Answer 1

naoya1699 さん、こんにちは。

マイクロソフト コミュニティのご利用、ありがとうございます。

投稿していただいた内容ですと、基本的な使い方やトラブルの対処法について情報交換を行っているマイクロソフト コミュニティでは情報が集まりにくいかと思います。

VBA に関連する内容なので、開発者の方々が多く利用されていて専用のカテゴリがある MSDN フォーラムに投稿してみるとアドバイスや情報が集りやすいと思います。

◆ MSDN フォーラム - Visual Basic for Application (VBA)

よろしければそちらを活用してみてくださいね。

Answer 2

有り難う御座います。

早速、MSDN フォーラムの方へ投稿してみます。