Bos sayfalara otomatik sayfa numarası

[vitamin]

Arkadaşlar, merhaba.

Boş excel sayfalarında;
Örnek: 200 sayfa A4 yazdırmak istiyorum.

Sayfa boş haldeyken;
Yazıcıya 200 adet A4 koyup,

İlk sayfaya: Sayfa 001
İkinci sayfaya: Sayfa 002
Üçüncü sayfaya: Sayfa 003

yazarak 200 sayfayı tamamlamasını istiyorum.

Teşekkürler

 

[akdenizli07]

Ek'teki sayfayı yazdırabilirsin. 200 boş sayfa sağ alt tarafta sayfa numaraları var 200 e kadar.


Bunuda Şöyle yapıyoruz.
hücrenini birisine bir boşluk bırakıyoruz. 1 sayfa=50 satır old. göre; 200 sayfa için 10.000 satır kopyalayıp. "Sayfa düzeni-Sayfa seçenekleri-Üstbilgi altbilgi - Özel Alt bilgi" yazan yerde sayfa numarası seceneğini seciyoruz işlem tamamdır.

 

[vitamin]

Bilgi için teşekkürler.

 

[uzmanamele]

Merhaba

Bu kodu deneyin.

Sub yaz()
Rem Denemeden önce 200 yerine 5~10 yazın, boşuna kağıt israfı olmasın
For i = 1 To 200
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = "Sayfa: " & Format(i, "000")
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
    ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

Alt veya üst bilginin uygun yerine yazarak deneyiniz.