[belajar-excel] Cekrip Print

[Agus nanga...@gmail.com [belajar-excel]]

Assalamualaikum warahmatullah,

Saya mempunyai cekrip sederhana untuk print.

     Range("D1") = seka.Value
     For i = seka.Value To Tekan.Value
     ActiveSheet.PrintOut
     If Range("D1") = Tekan.Value Then
             Exit Sub
         Else
             Range("D1") = Range("D1") + 1
         End If
     Next

Cekrip tersebut berjalan baik jika saya buka di excel 2007 dan 2010, 
namun tidak dapat berjalan baik pada excel 2013 (saya perintah untuk 
print halaman 1 - 20, hanya ngeprint halaman 5 dan 13 saja).

Apakah kesalahannya? atau adakah perbaikannya?