Yazdırma Ön izleme Satır Gizleme

[CILEKESH]

Private Sub CommandButton4_Click()
Application.Visible = True
Sheets("PARAMETRELER").Select
Me.Hide
ActiveSheet.PageSetup.PrintArea = "ALAN_DURUM"
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
UserForm3.Show
End Sub

Bu koda PARAMETRELER sekmesinin "V" sütunundaki "Yazıcıda Çıkmasın" yazan satırların gizlenmesi kodunu ekleyebilir misiniz? Ön izlemeden çıkınca yeniden Gösterecek

 

[CILEKESH]

Ömer hocama Teşekkür Ederim

Şu kodları Module yazdım

Sub gizle()
Dim i As Long
Application.DisplayAlerts = False
Cells.EntireRow.Hidden = False
 
For i = 2 To 1000
    If Cells(i, "v") = Yazıcıdan Çıkmasın Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
Application.DisplayAlerts = True

End Sub


Sub göster()
Cells.EntireRow.Hidden = False
End Sub

Yazdırma Butonundaki koduda şu şekilde değiştirdim

Private Sub CommandButton4_Click()
Application.Visible = True
Sheets("PARAMETRELER").Select
Me.Hide
gizle
ActiveSheet.PageSetup.PrintArea = "ALAN_DURUM"
ActiveWindow.SelectedSheets.PrintPreview
göster
Application.Visible = False
UserForm3.Show
End Sub