Otomatik ilerleyen sayı...

[a.cogurcu]

Belirtilen hücreye eklanecek olan sayının yazıcıdan her çıktı alınışında otomatik olarak ilerlemesini istiyorum...Yardımcı olan arkadaşlara şimdiden teşekkürler....

 

[leumruk]

Sub Yazdır()
Sheets("Y.İşEmri").PrintOut
[M4] = [M4] + 1
End Sub

Kodu bir butona ekleyerek istediğinizi yapabilirsiniz.

 

[a.cogurcu]

denedim ama Hocam hata veriyor... ekteki dosyaya uygulayabilirseniz sevinirim...

 

[leumruk]

Kodu butona bağladım. Hata vermesinin sebebi yazıcınız veya yazıcı ayarınızla ilgili olabilir.(Örneğin;kapalıysa, kâğıt yoksa vs.)

 

[a.cogurcu]

teşekkür ederim...sanırım haklısınız yazıcı ayarlarından kaynaklanıyor...

emeğinize sağlık....

 

[leumruk]

teşekkür ederim...sanırım haklısınız yazıcı ayarlarından kaynaklanıyor...

emeğinize sağlık....

Rica ederim.
UYARI: Sayı artırımı sadece butonla yaptığınız, yazdırmalarda geçerlidir.
Dosyanın kendi sekmesiyle yaptığınız yazdırma işleminde sayı artmaz.
Sitede arama yaparak veya konu açarak, Yazıcı sekmelerini devre dışı bırakan kodları öğrenip Autpen koduyla dosyaya eklemenizi tavsiye ederim. Ayrıca Auto_Close ile tekrar devreye sokacak koduda eklemeniz gerekiyor.
Saygılar.

 

[Ayhan Ercan]

Merhaba
Syın leumruk'un kodlarını;

ThisWorkbook ta

BeforePrint olayına yazarsanız herhangi bir butona bağlamadan istediğiniz gerçekleşecektir.....

 

[leumruk]

Merhaba
Syın leumruk'un kodlarını;
ThisWorkbook ta
BeforePrint olayına yazarsanız herhangi bir butona bağlamadan istediğiniz gerçekleşecektir.....

Syn. Arhan Ercan,
:icelim:k::ost:

 

[a.cogurcu]

Ayhan hocam tam olarak anlayamadım açıklayabilir misiniz? şimdiden teşekkür ederim.....

 

[leumruk]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[M4] = [M4] + 1
End Sub

Bu kodu dosyanızın "Thisworkbook" kısmının makro bölümüne kopyaladığınızda, düğmeye gerek kalmadan, her çıktı almanızda sayı bir artar.

 

[a.cogurcu]

teşekkür ederim...

 

[leumruk]

teşekkür ederim...

Rica ederim. Ayhan Bey'e, jetonun düşmesini sağladığı için teşekkür ederim.