エクセル（Excel）の技。知ってましたか・・・。

タイマー

プログラムの途中で少し時間を稼ぎたい時があります。

私の場合は印刷の時なのですが、宛先だけ変更して数百枚の印刷をする場合、

パソコン側かプリンタ側か不明ですが時々オーバーバッファして止まってしまう

ことがあります。

そんなことがないように１ページ分印刷を送ったら、次に印刷を送るまでに少し時間を稼ぐ。

そんな方法を取っています。

下記のプログラムをよく使用しますね。

newHour = Hour(Now())　　　　‘新しい時の設定

newMinute = Minute(Now())　　‘新しい分の設定

newSecond = Second(Now()) + 3　‘新しい秒の設定、ここに３秒プラスしています

waitTime = TimeSerial(newHour, newMinute, newSecond)　‘待ち時間は新しい時・分・秒で

実際より３秒後の時間です

Application.Wait waitTime　　‘waitTime（３秒後）まで、待ちなさいという命令

これで支障なく動作してくれるので、数百枚くらいの印刷をする必要がある場合は

上記のタイマーを入れてます。

＋３の数字を変更すれば任意の秒数で設定できます。