Excel sayfasında tüm sayfaları bir düğme ile yazdırmak

[muri]

20-30 veya daha fazla sayfa bulunan bir excel kitabının tüm sayfalarını tek bir düğmeye basarak yazdırmak istiyorum. yardımcı olursanız seviniri. şu anda ben sadece isim verdiğim ve bir adet sayfayı yazdıracak makroya sahibim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:4da0a8de89]sub yazdir()
for a=1 to sheets.count
sheets(a).printout
next
end sub
[/vb:1:4da0a8de89]

 

[muri]

zahmet olmadı umarım... çok teşekkürler

 

[Levent Menteşoğlu]

Rica ederim. Ne zahmeti hepimiz bunun için buradayız.

 

[mnesih]

peki istediğimiz bazı sayfaları nasıl yazdırabiliriz. mesela 1. 3. ve 7. sayfa dersek nasıl olur??