Checkbox ile işaretlediğim sütunları listeleme ve yazdırma

[zorro14]

merhaba arkadaşlar. Herkese iyi günler. Araştırdım ama bir türlü bulamadım eski dosyaların silinmesi kötü olmuş onların arasında buldum birkaç örnek sorumla ilgili ama ekli dosyalara bir türlü ulaşamadım. o yüzden tekrar sormak zorunda kaldım. Benim sorunum şöyle çok başlıktan oluşan bir lisem var.Ben bu listeden istediğim başlıklardaki bilgileri checkbox ile seçerek listelenmesini ve baskı önzilemede görmeyi aynı zamanda yazıcıdan çıktısınıda almak istiyorum. lütfen engin bilgilerinizle bana yardımcı olursanız sevinirim şimdiden teşekkür ederim örnek bir dosyada ekliyorum.

 

[zorro14]

yardım edecek kimse yok mu arkadaşlar lütfen yardımmm

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[zorro14]

çok teşekkür ederim elinize bilginize ve ustalığınıza sağlık

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[zorro14]

üstadım yaptığın kodlar iyi olmuş ellerine sağlık fakat benim küçük çaplı bir çalışmam var ve oraya uyduramadım bir türlü kodları yardımcı olursan sevinirim eğer yapması mümkümse ilk sayfadaki (personel ) listede olan sütunların içindeki başlıklardan seçtiğimiz sütünların biçimlerinide diğer sayfaya aktararak ön izleme yaptırabilirmiyiz. ilgine şimdiden teşekkür ederim. yaptığım çalışmayıda ekliyorum. Benim çalışmama eklediğimde sadece tek bir sütunu alıyor. Büyük bir ihtial makrolardan kaynaklanan bir durum söz konusu. Çünki sadece tek olan dosyada doğru yapıyor fakat benim çalışmam olana eklediğimde hata veriyor.

 

[dEdE]

Merhaba,
x ile başlayan satırı aşağıdaki ile değiştirin.

x = IIf(i = 1, s2.[IV1].End(1).Column, s2.[IV1].End(1).Column + 1)'---> Değişti

Aşağıdaki satırı da Me.Hide satırından önceye ekleyin.

s2.Cells.EntireColumn.AutoFit '-----> Eklendi

Güle güle kullanın.

 

[zorro14]

Üstadım çok teşekkür ederim ellerinize bilginize sağlık çok teşekkür ederim.

 

[dEdE]

Rica ederim.
Güle güle kullanın.