Çözüldü Yazdır Dediğim Zaman Emin misiniz diye Sorsun

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
V

vurkan

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar merhaba;
Bir çalışmamda oluşturduğum YAZICI isimli sayfada bir çok düğmeye bağlı değişik yazdırma kodları var. Bu kodlardan bazıları tıklanınca 40 50 sayfayı yazıcıya gönderiyor. Tabi yanlış tıklamaların da maalesef dönüşü zor oluyor. Şimdi:

Şimdi bir yazdırma düğmesine tıklayınca YAZICI isimli sayfanın L4 hücresinde yazana göre (mesela L4 hücresinde 1A yazıyorsa); "1A sınıfının öğrencileri yazıcıya gönderilecek Emin misiniz? " mesajıyla EVET HAYIR seçeneği olan bir kod parçası nasıl olmalı? EVET tıklayınca yazdırsın. HAYIR tıklanınca yazdırmasın. Teşekkürler.
 
Tarihe göre sırala Oylamaya göre sırala
Sayın Ömer Bey ilginize teşekkür ederim. Verdiğiniz kodları çalıştırdığımda yazıcıya gönderilecek mesela 40 sayfanın her birine ayrı ayrı onay istiyor. Oysa benim istediğim Hayır diyince tüm yazdırma işleminden vaz geçmek. evet diyince yazdırması.
Verdiğiniz kodu yazdırma kodlarımın içinde denedim. Hayır dediğim halde yazıcıya 60 sayfa gönderdi. Bendeki kodların çoğu Aşağıdaki gibi. Bu kodlara nasıl bir ekleme yapılabilir. Saygılar.

Sub SINIF_DİŞ_ÖN_YAZDIR()
Application.ScreenUpdating = False
For sat = 2 To Sheets("YAZICI").[K4] + 1
If Sheets("YAZICI").Cells(sat, "S") <> "" Then
Sheets("DİŞ FORMU ÖN").[AF24] = Sheets("YAZICI").Cells(sat, "S")
'Sheets("DİŞ FORMU ÖN").PrintPreview
Sheets("DİŞ FORMU ÖN").PrintOut Copies:=1
Application.Wait (Now + TimeValue("0:00:01"))
adet = adet + 1
End If
Next
Application.ScreenUpdating = True
MsgBox adet & " öğrenci için DİŞ FORMU sayfası yazdırıldı.", , "..:: Ömer BARAN ::.."
End Sub
 
Oyla 0 Olumsuz oyla
Aklıma iki öneri geliyor: Birincisi, kodu aşağıdaki şekilde değiştirip deneyiniz.
Kod: 
You must log in to view content
(7 satır)

Alternatif olarak ise; yukarıdaki kod kullanılmaz ve her yazdırma makrosunun başına aşağıdaki onay kodları eklenir ve onay verilmezse kod sonlanmış olur.
Kod: 
You must log in to view content
(2 satır)
İyi geceler, iyi çalışmalar...
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
V
vurkan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Genel Excel Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
5
Üst