Belirlenen Sayfaları Yazdırma

[hakanimamoglu]

Ekte gönderdiğim yaklaşık 35 sayfalık excel dosyasından bir yazdırma ssayfası oluşturup sadece seçtiğim 3-5 veya bazen 20 syfayı yazdırmak istiyorum nasıl yapabilirim

 

[askm]

Listele sayfasında C sütununa X işareti koyarak seçtiğinizi varsayıp.

Sub askm_Yazdir()
Dim son As Integer
Dim sayfa
   
son = Sheets("Listele").Cells(65536, "C").End(3).Row
For i = 2 To son
    If Sheets("Listele").Cells(i, 3) = "X" Then
        sayfa = Sheets("Listele").Cells(i, 2).Value
        Sheets(sayfa).PrintPreview 'Direkt yazdırmak için Sheets(sayfa).printout
    End If
Next
End Sub

 

[hakanimamoglu]

Çok teşekkürler...
Ancak uyguladığımda şöyle bir problem çıktı sadece bir ürünü yazdırma yapıyor. Kaç tane işaretlesemde biri yazdırılıyor

 

[askm]

Örnek dosya ektedir.