Yazıcıya gönderildi mi?

[dEdE]

Merhaba Xl Dostları,

Aşağıdaki kodlarla UserFormu gizleyerek baskı önizleme yapıyorum.
Kullanıcının önizlemeden sonra sayfayı yazdırıp yazdırmadığını bilmek istiyorum.
Bunun için nasıl bir kod önerirsiniz.

Saygılar.

Private Sub CommandButton1_Click()				
    Me.Hide							
    Sheets("Sayfa1").PrintPreview					
    Me.Show 0											
    if MsgBox("Yazdırmaya Devam Edecek misiniz?  ", vbYesNo + vbQuestion, "YAZDIRMAYA DEVAM MI?")= vbNo Then Exit Sub
End Sub

 

[hamitcan]

Böyle deneyin.

Private Sub CommandButton1_Click()				
    Me.Hide							
    Sheets("Sayfa1").PrintPreview					
    Me.Show 0											
    if MsgBox("Yazdırmaya Devam Edecek misiniz?  ", vbYesNo + vbQuestion, "YAZDIRMAYA DEVAM MI?")= vbyes Then msgbox "Belge yazdırıldı."
End Sub

 

[nane]

Merhabalar,
Daha önce kaç defa yazdırıldı. Bunu saydırabilirmiyiz.
yardımlarınız için teşekkürler
Yb®

 

[hamitcan]

Kopya sayısı mı yazdırma sayısı mı ? Her halukarda, her ikisini de kod yardımıyla yapabilirsiniz.

 

[Murat OSMA]

Afedersiniz Sn. hamitcan araya giriyorum ama...

Sn. Korhan AYHAN'ın hazırladığı bir dosyayı paylaşmak istiyorum. Sanırım çözüm olacaktır...

Hoşça kalın !!!

 

[nane]

Her ikisi de olabilir.

Hamitcan, Murat, teşekkürler.

Yb®

 

[hamitcan]

Afedersiniz Sn. hamitcan araya giriyorum ama...

Sn. Korhan AYHAN'ın hazırladığı bir dosyayı paylaşmak istiyorum. Sanırım çözüm olacaktır...

Hoşça kalın !!!

Murat Bey, kimseden izin almanıza gerek yok. Hatta farklı çözümler üretmeniz forum için de çok faydalı olacaktır.

 

[Murat OSMA]

Sn. hamitcan, sizin ve diğer yöneticilerin bu konudaki tutumunu, düşüncelerini biliyorum ama inanın benim içime sinmiyor.

İyi niyetiniz ve anlayışınız için teşekkür ederim.

Hoşça kalın !!!

 

[dEdE]

Teşekkürler Sayın Osma,
Eklediğiniz dosya sorunu çözdü.

 

[Murat OSMA]

Rica ederim, hayırlı günler...