sayfa numarası

[meltemav]

48 shetten oluşan bir dosyamız dosyamızdaki shettlerin herbirine header kısmında isim veriyoruz. İstediğimiz bütün shettlerimize döküm alırken görünmek üzere sıra numarası vermek ve bunu yaparken header da yazdığımız başlıkların kaybolmaması bunu sağlayabilir miyiz. Çünkü ben tüm shettleri seçip numara verdiğimde headerda yazan başlıklar kayboluyor.
Teşekkürler

 

[Necdet]

Merhaba,

Ben pek anlamadım ne yapmak istediğinizi, Örek bir dosya ekler misiniz?

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu, yazıcıdan çıktı almadan önce çalıştırınız

Sub SayfaNoVer()
For Each sh In ThisWorkbook.Sheets
i = i + 1
x = "ÜRETİM RAPORU"
[COLOR=green]'x değişkenine siz istediğiniz bir Başlık metnini atayınız. Bu Üstbilginin ortasında yer alacak metindir.[/COLOR]
With Sheets(i).PageSetup
    .LeftHeader = ""
    .CenterHeader = x
    .RightHeader = "Sayfa No : " & i
[COLOR=green]'Sayfa Noları, sayfanın sağında yeralacaktır.[/COLOR]
End With
Next
End Sub