Yazdır Makrosunda Hata

[ferhatgurbuz]

Arkadaşlar ekteki dosyada yazdır dügmesine tıklayınca dolu olan sayfaları yazdırıyordu. Şimdi sadece dolu olan 3 sayfayı yazdırıyor. Ekteki dosyada 10. sayfaya kadar yazdırması gerekiyor ve boş olan yani sıfır olan sayfaları ise yazdırmayacaktı. kolay gelsin teşekkürler


Yazdır kodu aşağıdadır.


Sub Bordro_Dökümü_Yazdır()
Sheets("Genel_Bordro").Select
For i = 28 To [m65536].End(3).Row Step 58
If Cells(i, 13) > 0 Then
n = n + 58
Range("a" & n - 57 & " : " & "n" & n).PrintOut
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Sanırım aralara satır eklemişsiniz. Bu sebeple stepleme ayarı bozulmuş. Aşağıdaki kodu denermisiniz.

Sub Bordro_Dökümü_Yazdır()
    Sheets("Genel_Bordro").Select
    For i = 28 To [m65536].End(3).Row Step 62
    If Cells(i, 13) > 0 Then
    n = n + 62
    Range("a" & n - 61 & " : " & "n" & n).PrintOut
    End If
    Next
End Sub

 

[ferhatgurbuz]

Teşekkür ederim. Hayırlı akşamlar