Yazdırmayı Geciktirme

[PrintScreen]

Yazdır butonuna tıklayarak yazdırdığım bir belgenin 10 sn yada belirlediğim bir zaman sonra yazıcıya gönderilmesini nasıl sağlayabilirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu ilk satır olarak kodunuzun başına ekleyin.

[vb:1:f5b235da63]Application.Wait Now + TimeValue("00:00:10")
[/vb:1:f5b235da63]

 

[PrintScreen]

Buton deyince ileri bir excel bilgisine sahip olduğum anlaşıldı herhalde
Standart araç çubuğundaki yazdır simgesi demek istedim
kod yazacak kadar bir bilgim yok.
nasıl yapmalıyım. teşekkür ederim.

 

[ugurakin]

Sn.Levent Hocamın affına sığınarak;

ALT-F11 'e birlikte bastıktan sonra karşınıza çıkan ekranın sol üst köşesinde Project-VBAProject kısmındaki ThisWorkBook' u klikleyin, ekranın sağ tarafına aşağıdaki kodları yazın yada buradan kopyalayın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.Wait Now + TimeValue("00:00:10")
End Sub

 

[PrintScreen]

Teşekkür ederim.

 

[Levent Menteşoğlu]

affına sığınarak;

Sn ugurakin bu tür cümlelerede hiç gerek yok, lütfen mesajınızı göndermekten asla vazgeçmeyin.

 

[ugurakin]

Ben teşekkür ederim Sn.Levent Bey.

 

[PrintScreen]

Kodu kopyaladım ama yine hiç duraksamadan yazdı neyi yanlış yapıyorum acaba.

 

[ugurakin]

Aşağıdaki dosyayı bir çalıştırın bakalım.
unutmadan dosya açılırken de "Makroları Etkinleştir" i seçiniz.

 

[PrintScreen]

Þimdi oldu teşekkürler.
Sorun Güvenlik düzeyi seçeneğinde imiş.
Yüksek güvenlik seçiliymiş. orta yapınca düzeldi.