Seçime Göre Sayfayı PDF Olarak Kaydetme

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

Believing

VIP Üye
Kullanıcı
Katılım
1 Haz 2017
Mesajlar
75
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.
 
İki Tarih Arası Arama Ekleme
ListBox İki Tarih Arası Koşullu Arama

Ekli dosyalar

Çözüm
Ömer BARAN
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.

.
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
Çözüm
Sayın Ömer bey,
Ellerinize ve emeğinize sağlık.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen. (Kahvelerinizi hayırlı günlerde yudumlayınız)

Saygılarımla.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt