Çözüldü Seçime göre sayfa yazdırma Pdf kaydetme

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

Believing

Yıllık Site Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın Uzman arkadaşlar,

Ekteki çalışma sayın @Ömer BARAN tarafından daha önce revize edilmiştir. Çalıma kitabının kullanılması ile kağıt tasarrufu yapmak için bir kaç senaryo değişikliğine ihtiyacımız oluşmuştur.
-- Userform'a eklediğim Frame2 "Seçili Sayfaları Yazdır" kutucuğu açılışta işaretli gelmelidir.
-- Eğer kullanıcı çıktı almak istemez ise "Seçili Sayfaları Yazdır" kutucuğunun tik işaretini kaldırınca çıktı alınması engellenerek, Frame1 seçeneklerine göre PDF kaydını gerçekleştirmelidir.
Bu koşulları sağlamak için mevcut kodları nasıl revize etmeliyim. Çok değerli yardımlarınızı rica ediyorum.

Saygılarımla.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhabalar tekrar.
Oluşturduğumuza göre düzenlemesine de bakalım.

Userform'a YAZDIRma ile ilgili olarak eklediğiniz OptionButton'u silip, yerine bir CheckBox ekleyin.
Zira fareyle tıklayarak seçili hale getirilmiş TEKLİ OptionButton'un seçimini kaldıramazsınız.

Mevcut kodlarda;
-- UserForm_Initalize kod blokunda End Sub satırının üstüne Me.CheckBox1 = True satırı ekleyin,
-- cmbPrint_Click kod blokunda ise;
ActiveWorkbook.Sheets.PrintOut satırını If Me.CheckBox1 Then ActiveWorkbook.Sheets.PrintOut şeklinde,
ActiveWorkbook.Sheets(i).PrintOut satırını ise If Me.CheckBox1 Then ActiveWorkbook.Sheets(i).PrintOut şeklinde
değiştirin.

.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst