yazdır butonu

[yuzun23]

ekteki belge ile yazdır butonu oluşturularak, bastığımda aşağıdaki kırmızı 27 sayfayı otomatik yazdırsın

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz. Denerken kağıt israfı olmaması için az sayfalı bir örnek üzerinde deneyiniz:

Sub yaz()
For i = 1 To Sheets.Count
    If Sheets(i).Tab.Color = 255 Then
        Sheets(i).PrintOut
    End If
Next
End Sub

 

[yuzun23]

olmadı. sadace kırmızı sayfaları belgeye eklemeniz mümkün mü? şimdiden teşekkür ederim

 

[YUSUF44]

Ben denedim oldu. Sizde olmayan nedir?

Kodda öyle karmaşık bir durum yok. Tüm sayfaları kontrol ediyor. Eğer sekme rengi kırmızı ise o sayfayı yazdırıyor.

 

[yuzun23]

teşekkürler