zaman aralıklı yazdırma

[kneehot]

arkadaslar merhaba. yazdırma ile ilgili mir makroya ihtiyacım var. normalde elımde bır makro var bir seferde 3 kere yazdırıyor ama yazıcımdan kaynaklı problem yasıyorum. ihtiyacım olan makro 3 kere yazdıracak ama 1 er 1er gonderecek. yanı 1 adet yazdır dıyıp 3 sn beklıyecek 1 adet yazdır deyıp yıne 3 sn bekleyecek ve 1 adet yazdır dıyıp bıtırecek. yardımcı olursanız cok sevınırım. tum tardımlara tesekkurler.

 

[hamitcan]

Böyle bir deneyin.

Sub Yazdir()
    For i = 1 To 3
        ActiveSheet.PrintOut
        Application.Wait (Now + TimeValue("0:00:03"))
    Next
End Sub

 

[kneehot]

cok tesekkur ederım tam ıstedıgım gıbı sagolun.