Yazdırma sorunu

[acebeci]

Değeri büyüklerim daha önce OFİS 2007 Kullanıyordum şimdi 2010'a geçtim. Bir çalışma kitabında LİSTE diye bir sayfam vardı orada müşteri isimleri ve borçları var. borcu sıfır olanları listeden çıkartıp yazdırmak için aşağıdaki kodu kullanıyordum.Sıkıntı şurada ki yazdır dedikten sonra tekrar bir ekran çıkıyordu yazdırmaya devam edip etmeyeceğimi soruyordu.Artık o ekran gelmiyor ben listeden 0 değerleri çıkarmak istediğimde yada eklemek istediğimde yazıcı çıktısı almak istemesem bile yazdırıyor.Bu durumu nasıl düzeltebilirim acaba? yani sıfır değerleri çıkartsa ya da eklese ama yazıp yazmamayı bana sorsa bu mümkün mü acaba? Şimdiden çok teşekkür ederim

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "LİSTE" 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, 3).End(xlDown).Row
If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
Rows(i).Hidden = True
End If
Next i
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
b = 1
For a = 3 To [C65536].End(xlUp).Row
If Rows(a).Hidden = False Then
Cells(a, 1) = b
b = b + 1
End If
Next a
End If
End Sub

 

[ÖmerBey]

Merhaba,
Sayfa ismiyle alakalı bir durum zannedersem. Koddaki sayfa ismiyle dosyanızdakinin aynı olduğundan emin olunuz.
If ActiveSheet.Name = "LİSTE" Then

 

[acebeci]

Ömer Bey yok sayfa ismi değil Ofis 2010 ile alakalı bir durum yazdırma ile attığım ekteki resim Excel 2007 ye ait onda sıfır değerleri çıkardıktan sonra bu ekran geliyor yazdırmak istiyorsan bu ekranda tamam diyorum yada iptal efiyorum 2010 da böyle bir ekran gelmeden Sıfırları listeden çıkartarak direk yazdırıyor.Yani işin özeti şu listedeki sıfır sonuçları ekleyip gizleme, ekledikten yada gizledikten sonra listeyi yazdırıp yazdırmayacağımı sorması
Hakkatten hakkınızı helal edin konuyu baya karmaşıklaştırdım

 

[ÖmerBey]

O bahsettiğiniz ekran yerine kod içerisine şöyle bir ilave yapılabilir. İşinizi görürse...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "LİSTE" 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, 3).End(xlDown).Row
            If Cells(i, 3) < 1 And Cells(i, 3) > -1 Then
                Rows(i).Hidden = True
            End If
        Next i
    Else
        ActiveSheet.UsedRange.EntireRow.Hidden = False
    End If
    b = 1
    For a = 3 To [C65536].End(xlUp).Row
        If Rows(a).Hidden = False Then
            Cells(a, 1) = b
            b = b + 1
            End If
    Next a
    onay = MsgBox("Sayfa yazdırılsın mı?", vbOKCancel)
    If onay <> vbOK Then Cancel = True
End If
End Sub

 

[acebeci]

Ömer Bey valla helal olsun her ne kadar ben derdimi doğru düzgün anlatamasamda hedefi tam 12 den vurmuşsunuz tamda istediğim buydu çok ama çok teşekkür ederim Allah razı olsun

 

[ÖmerBey]

Rica ederim, Allah hepimizden razı olsun. İşinizi gördüyse ne mutlu.
İyi çalışmalar...