header/footer (üst bilgi/alt bilgi)

[madigan]

excel'de alt bilgi de sağ kısma kısa bir açıklama, sol kısma adres vs. orta kısma sayfa numarası veriyorum, ancak ilk sayfa da kapak vs var dolayısıyla il sayfada alt bilgilerin yazılmasını istemiyorum. ve 2. sayfadan saymaya baslamasını istiyorum, yardimci olur musunuz, ilgili macrolar varmıdır??

 

[hamitcan]

Sayfa Yapısı içinde "ilk sayfada farklı" diye bir seçenek var. Bu işinizi görebilir. Yalnız sizdeki 2002 versiyonu. Belki olmayabilir.

 

[madigan]

Sayfa Yapısı içinde "ilk sayfada farklı" diye bir seçenek var. Bu işinizi görebilir. Yalnız sizdeki 2002 versiyonu. Belki olmayabilir.

cevabınız icin tesekkur ederim, evet bende bu secenek yok...

macro arastiriyorum ama bakalim daha cozemedim bulursam buraya yazarim.

 

[madigan]

Sub PrintSheet()
Dim sP1Left As String
Dim sP1Center As String
Dim sP1Right As String
Dim sP2Left As String
Dim sP2Center As String
Dim sP2Right As String

' Define first-page footers
sP1Left = ""
sP1Center = ""
sP1Right = ""

' Define second-page footers
sP2Left = "Second page left"
sP2Center = "Second page center"
sP2Right = "Second page right"

' Set up and print first page
With ActiveSheet.PageSetup
.LeftFooter = sP1Left
.CenterFooter = sP1Center
.RightFooter = sP1Right
End With
ActiveSheet.PrintOut 1, 1

' Set up and print other pages
With ActiveSheet.PageSetup
.LeftFooter = sP2Left
.CenterFooter = sP2Center
.RightFooter = sP2Right
End With
ActiveSheet.PrintOut 2
End Sub

boyle bir macro buldum ancak excel sayfasını yazdirdigimda once ilk sayfayi yadiriyor baska bir dosya olarak, sonra da diğer geri kalan sayfaları yazdiriyor, aslinda bir noktaya kadar bu macro cozum getiriyor soruma ancak print yaptigimda butun sayfalari tek seferde yazsin ki pdf olarak saklayabileyim dolayısıyla ilk sayda daki footer da bisey cikmaz ve geri kalaninda istedigim footer cikar, yaniliyor muyum?? yardimlariniz icin simdiden tesekkurler.