Yazdır Kodunda Hata

[ferhatgurbuz]

kolay gelsin arkadaşlar. Daha önce çalışan bir kod. Şuan çalışmaz oldu. Nedeni ve çözümü hakkında yardımlarınızı bekliyorum.


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

Bu kod ile sadece örnek dosya üzerinde rakamları yani sekizinci sayfaya kadar yazdırması gerekiyordu. ama şuan hepsini yazdırıyor.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanız üzerinde kodu denedim ve olumlu sonuç aldım. Yani kodda bir hata görünmüyor.

 

[ferhatgurbuz]

ya özür dilerim. Ben o kodu butonla değil de normal yazdırdan kullandığım için kaynaklandı. Çok Çok özür dilerim. Dalgınlığıma geldi. kolay gelsin