Boş sayfaları yazdırmamak

[SeSi]

Merhaba,

Forumda arama yaptım. Ama konumla ilgili herhangi bir kod bulamadım.

50 sayfalık bir çalışma var. Yazdır butonuna bastığımda sadece dolu sayfaları yazdırmak istiyorum. Bu mümkün mü?

Teşekkürler.

 

[Levent Menteşoğlu]

Bunun için bir hücreyi referans gösterin, eğer bu hücre boş ise yazdırma, dolu ise yazdır mantığında bir kod yazabilirsiniz. Örneğin bu hücre A1 hücresi olsun.

sub yazdir()
for a=1 to 50
if sheets(a).[a1]<>"" then sheets(a).printout
next
end sub