yazıcı çıktısı ile ilgili

[ogungor]

arkadaşlar eger g sütunundaki değer 0 ise bunu yazıcıdan çıktı alırkan o satırları yazdırmamak istiyorum.ekteki dosyada gösterdim.ilgilenebilirseniz sevinirim

 

[Ferhat Pazarçevirdi]

Dosyanızın, Thisworkbook kod sayfasına aşağıdaki kodları ilave edin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
If ActiveSheet.Name = "Sayfa1" Then
   For i = 2 To Cells(1, 7).End(xlDown).Row
       If Cells(i, 7) < 1 And Cells(i, 7) > -1 Then
          Rows(i).Hidden = True
       End If
   Next i
End If
End Sub

 

[ogungor]

çok teşekkür ederim problemi halledebildim.peki yazmasını istersem o kodu silmem mi gerekecek.biliyorum çok cahilane bir soru oldu ama daha yeni başladım öğrenmeye çalışıyorum kusura bakmayın

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme6_Tıklat()
For s = 1 To 35
If Range("g" & s) <= 0 Then Range("g" & s).EntireRow.Hidden = 1
Next
ActiveSheet.PrintOut
End Sub

 

[ogungor]

sayın seyit tiken 3 numaralı mesajımdaki yanlış ifadeden dolayı özür dilerim düzeltiyorum.şimdi sıfır olan hücreleri yazıcıda çıktısını alırken yazmasın diye soruma sayın fpc bir kod yazdı ve düzgün çalışıyor.benim sorum şöyle idi:erğer sıfır olan hücreleri de yazdırmam gerekirse o kodu mu silmem gerekli diye sormuştum teşekkür ederim

 

[Ferhat Pazarçevirdi]

Kodu şu şekilde değiştiriniz

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sayfa1" Then
   cevap = MsgBox("0 değerler yazdırılsın mı?", vbYesNo, "0 DEĞERLER")
   If cevap = vbNo Then
      For i = 2 To Cells(1, 7).End(xlDown).Row
          If Cells(i, 7) < 1 And Cells(i, 7) > -1 Then
             Rows(i).Hidden = True
          End If
      Next i
   Else
      ActiveSheet.UsedRange.EntireRow.Hidden = False
   End If
End If
End Sub