Excelde üst bilgi sayfa no

[kartalkartal]

Merhaba Arkadaşlar,

Üst bilgiyi yenileme sıkıntı yok,fakat Form olursa formun içersinde 1/4 şeklinde sayfa nosu var bu 2.sayfadada aynı 1/4 şeklinde görünüyor bunu nasıl yapabiliriz 2/4 şeklinde

Aşagıdaki kodda ne gibi bir değişiklik yapmalıyız ki sayfa nosu 1/4 olan noyu 2.sayfada 2/4 olarak yazsın

say = ActiveSheet.HPageBreaks.Count + 1
For a = 2 To say
[k6] = "1/ " & a



kolay gelsin

 

[Ömer BARAN]

Merhaba.

Sorunuz çok net anlaşılmıyor.
Estediğiniz belgeyi yazdırırken, yazdırılan sayfa nimarası/toplam sayfa numarası şeklinde üst bilgi istiyorsanız;

SAYFA YAPISI->ÖZEL ÜSTBİLGİ-> TERCİH ETTİĞİNİZ KONUM ALANINA (sol/orta/sağ)

aşağıdaki mavi renklendirdiğim ibareyi yapıştırarak işlemi onaylayın.

&[Sayfa] / &[ToplamSayfa]
.

 

[kartalkartal]

Merhaba,

Üst bilgiyi oradan ayarladım fakat K6 hücresinde otomatik olarak alıyor (1/2)gibi ama dediğim gibi 2. sayfada 2/2 gözükmesini istiyorum.
Burada aşağıdaki bir kod var ama bu kodda 1. sayfada 2/2 olarak 2.sayfada 2/2 olarak gözüküyor ,beceremedik.

say = ActiveSheet.HPageBreaks.Count + 1
For a = 2 To say
[k6] = a & "/ " & say

iyi çalışmalar

 

[YUSUF44]

K6 hem 1. hem de 2. sayfada mı ki hem 1/2 hem de 2/2 olarak görünsün?

 

[kartalkartal]

Merhaba,

evet 2 sayfa olursa 1.sayfada 1/2 2.sayfada 2/2 seklinde gözükecek sayet 3 sayfa olursa 1/3 2/3 3/3 şeklinde olacak.

Teşekkür ederim.

iyi çalışmalar.

 

[YUSUF44]

Anladım galiba. K6 hücresini her sayfanın üstünde başlık olarak kullanıyorsunuz ve o sayfanın üstünde sayfa numarasını K6 hücresinde göstermek istiyorsunuz. Eğer bu işlemi yazdırırken yapsın istiyorsanız Kodun sonuna Next'ten önce yazdırma satırı eklerseniz her sayfada ayrı ayrı sayfa numarası görünür diye düşünüyorum.

Sub sayfano()
say = ActiveSheet.HPageBreaks.Count + 1
For a = 2 To say
    [k6] = a & " / " & say
    [H1] = a & " / " & say
    ActiveSheet.PrintOut From:=a, To:=a, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

Next
End Sub

 

[kartalkartal]

Merhaba,

Benim kullandığım kod aşağıda gayet güzel işimide görüyor,atıyorum burada form bilgisine göre bu farklı kaydedeğimiz sayfa min.2 sayfa max.15 sayfada olabilir ,kod onu gayet güzel ayarlıyor ,tek takıldığımız nokta şu sayfa nosu.

iyi çalışmalar.



Sub farklı_kaytet_pdf()

say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[k6] = a & " / " & say


Next

ActiveSheet.PageSetup.PrintArea = "$A$2:$L$" & Range("b65536").End(3).Row
Set ac = Application.FileDialog(msoFileDialogSaveAs)
evn = ac.Show
yol = ac.InitialFileName

dosya_adı = Cells(1, "k").Value
If dosya_adı = "" Then
MsgBox "Dosya adı yok"
Exit Sub
End If
a = MsgBox(" Kayıt etmek istiyormusunuz.?", vbYesNo + vbInformation, " Uyarı")
If a = vbYes Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "işlem tamam!"
End If
If a = vbNo Then
MsgBox "işlemi iptal ettiniz.!"
End If
End Sub