yazdırma makrosu

[dragon44760]

ekteki dosyada bir şeyler yapmaya çalıştım ama olmadı. yazmaya çalıştığım makroda düzenleme yaparsanız sevinirim. açıklama ekteki dosyada.

 

[h.aykol_]

belirtiğin aralığı yazar

makroda belirtiğin aralığı yazar.kopya sayısınıda belirlersin.

 

[dragon44760]

aradığım bu değil

bunu bende yapabilirim ama ben şarta bağlı olarak yazdırmak istiyorum. yardımın için teşekkürler...

 

[orcunerkek54]

bütün çıktı işlemleri tek düğme ile mi olacak

 

[orcunerkek54]

aynı dert bendede olmuştu.ben sizegöre uyarlamaya çalıştım.yazıcım olmadığı için deneyemedim kendinize göre uyarlarsınız.umarım olmuştur
kodlarda emeği geçen excelweb üyelerine teşekkürler.

sayfaların çıktıları için alanları değiştirerek iwstediğiniz gibi ayarlayın
Sheets("HAVALE").[A1:I36].PrintOut=3
Sheets("GENEL LİSTE").[A1:G26].PrintOut=2
Sheets("BANKA LİSTE (2)").[A1:E27].PrintOut=1


koşullu çıktı alma sayılarla ve alanlarla oynayarak dilediğiniz gibi ayarlayın
If Sheets("İLÇELER BİLGİ").[B23] => 1 Then 'b23 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[A1:B23].PrintOut
End If
If Sheets("İLÇELER BİLGİ").[E23] >= 1 Then 'e23 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[D1:E23].PrintOut
End If
If Sheets("İLÇELER BİLGİ").[h23] >= 1 Then 'h23 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[g1:h23].PrintOut
End If
If Sheets("İLÇELER BİLGİ").[b47] >= 1 Then 'b47 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[a25:b47].PrintOut
End If
If Sheets("İLÇELER BİLGİ").[e47] >= 1 Then 'e47 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[d25:e47].PrintOut
End If
If Sheets("İLÇELER BİLGİ").[h47] >= 1 Then 'h47 deki sayı 1den büyük ve eşitse alttakini yazdır
Sheets("İLÇELER BİLGİ").[g25:h47].PrintOut
End If

 

[dragon44760]

çıktıların hepsini tek makroda almak istiyorum

eğer istediğim koşulları sağlamayan aralıkların çıktılarını almasın...
kodu yukarda eklediğim exel sayfasına yazarsanız sevinirim...

 

[orcunerkek54]

deneyiniz inşallah olmuştur tüm istediklerinizi başaramadım beni aşıyorlardı.
kolaygelsin

 

[dragon44760]

teşekkürler...