Sayfa ismine göre yazdırma

[sawWweb]

Arkadaşlar ben iki butonla şu işlemleri yaptırmak istiyorum.
1.Buton Sayfa ismi 1,3,5,7 olanları yazdıracak
2.Buton Sayfa ismi 2,4,6,8 olanları yazdıracak
Forumda şöyle bir kod buldum:
[vb:1:1edb79bf94]For a = 2 To Sheets.Count Step 2
Sheets(a).PrintOut
Next
[/vb:1:1edb79bf94]
Fakat bu kod excel çalışma kitabının ilk sayfasından başlıyor. Yani sayfa ismine bakmıyor.
Örneğin maaş bilgileri isminde ilk sayfam var. 2. sayfamın ismi ise kimlik bilgileri, 3.sayfamın ismi katsayılar. Sonraki sayfaların ismi 1,2,3,4,5 şeklinde. Yukarıdaki kodla yazdırmaya başladığımda maaş bilgileri,katsayılar,2,4 sayfalarını yazdırıyor.
halbuki ben sadece 1,3,5 ve daha sonrada 2,4 sayfalarını yazdırmak istiyorum. Bunu nasıl yapabiliriz? :?

 

[Metin Karaağaç]

Sub yaz() 
Dim i As Integer 
Dim y As Integer 
i = InputBox("Tek sayılar için 1 , çift sayılar için 2 yazın.") 
y = InputBox("Son sayfa numarasını yazın...") 
For excelweb = i To y Step 2 
ActiveWindow.SelectedSheets.PrintOut From:=excelweb, To:=excelweb, Copies:=1, Collate:=True 
Next 
End Sub

Kodları başka bir forumdan buldum. İçinde forumun reklamı olan yazılar vardı, ben değiştirdim(umarım kızmaz)

 

[kombo]

1.Buton Sayfa ismi 1,3,5,7 olanları yazdıracak
2.Buton Sayfa ismi 2,4,6,8 olanları yazdıracak
Forumda şöyle bir kod buldum:
[vb]For a = 2 To Sheets.Count Step 2
Sheets(a).PrintOut
Next

Tek sayfa için Kırmızı yeri 4 (başta yazılmasını istemediğiniz üç sayfanız olduğu için.)
Çift sayfa için 5 yapın