Çoklu yazdırma

[kemalkazan]

Saygıdeğer arkadaşlarım,
bir kamu kuruluşunda çalışıyorum.ekteki excel dosyası konusunda sayın ferhat beyefendi hocamızdan yardım almıştım.Gıyabında tekrar teşekkürlerimi arz ediyorum.
Bir sorum daha olacak,dosyada da gerekli açıklamayı yaptım.Acaba tek tek sıra no seçmek yerine toplu ya da belli sıradaki sıra nolarını yani seçimlik olarak yazdır butonu ile yazdırabilir miyim.örnek dosyada 5-6 veri var ancak bu verilerin 250-300 olduğunu düşünürsek tek tek yazdırmak bir hayli zaman almakta.
Bu konuda yardımlarını esirgemeyecek arkadaşlarımıza da teşekkür ederim.

 

[conari]

dosyınız ekte.

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub topluyazdir()
    ilksayfa = InputBox("İlk Sayfa Nosunu Girin")
    sonsayfa = InputBox("Son Sayfa Nosunu Girin")
    For i = ilksayfa To sonsayfa
    [l2] = i
    ActiveSheet.PrintOut
    Next
End Sub