Sıralı Yazdırma Makrosu

[ŞAHİNce]

Muhasebelerde veya şirketlerde kullanılmak üzere;
İşletme defteri veya büyük defterlerin A4 kağıdı olarak notere onaylatılması
için, boş sayfalara 1'den başlayarak sıra numarası verilmesi gerekmektedir.

Bu sıra numalarını ekli dosya ile yazıcıdan yazdırmak için gerekli makro nasıl olmalıdır?

(Forumda aradım. İhtiyacım acevap veren uygulama bulamadım)

teşekkür ederim.

 

[hamitcan]

Sub yazdir()
    For i = 1 To [d2]
        [b1] = Format(i, "0000")
        Sayfa1.PrintOut , , [e2]
    Next
End Sub

 

[Ayhan Ercan]

Merhaba

Sub yaz()
x = Sayfa1.[E2].Value
For i = 1 To Sayfa1.[D2]
Sayfa1.[B1] = i
Sayfa1.PrintOut copies:=x
Next

End Sub

 

[ŞAHİNce]

teşekkür ediyorum.
İstediğim gibi bir makro yapmış olduk.

 

[ŞAHİNce]

"yaz" makrosunu kullandım..
Sonuç aldım. Programı burada biraz daha geliştirmek için;
başlangıç sayfa sayısını sayfa hücresi üzerinden kendimiz belirleyebilirsek, program daha kullanışlı olacak.
Bunun için makroya nasıl bir kod ilavesi yapılmalıdır?