çoklu yazdırma

[yücelkaya]

Saygıdeğer arkadaşlar,
ekli dosyada yazdır butonuna bastığımda "il sayfa no" ve "son sayfa no" girerek isteğe bağlı yazdırma yapmak istiyorum.Çünkü asıl liste 260 kişilik.
Örneğin dosyanın veri kısmında bulunan kayıtlardan,form kısmında "yazdır" butonu ile 10.ve 15.kayıtlar arasını yazdırabileyim hatta kopya sayısını da seçebileyim.
Ancak kodlardaki hatamı bulamadım.Duayen arkadaşlarımın yardımlarını bekliyorum.
Saygılarımla

 

[yücelkaya]

cevap yok

Saygıdeğer Arkadaşlar,
Acaba açıklamalarım mı eksik,yoksa karışıkmı çünkü 28 görüntüleme var ama cevap hiç yok.
Eğer anlaşılmayan bir yer varsa daha detaylı açıklama yapabilirim.
saygılarımla

 

[yücelkaya]

????????????????????????????

 

[hamitcan]

Sub yazdir()
    ilk = InputBox("İlk Sıra Nosunu Girin") + 6
    son = InputBox("Son Sıra Nosunu Girin") + 6
    c = InputBox("Kopya Sayısını Girin")
    alan = "A" & ilk & ":I" & son
    Range(alan).PrintOut , , c
End Sub