Sayfa Numaralandırma

[ceykip]

arkadaşlar merhabalar
soru şu
excel de tek sayfayı print ederken otomatik olarak her sayfaya ayrı numara vermek mümkünmü???
sağolun şimdiden

 

[Recep İpek]

Makrolu çözüm için aşağıdaki kodları dosyanızın Thisworkbook bölümüne kopyalayınız.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("a1").Value = Range("a1").Value + 1
With ActiveSheet
    .PageSetup.CenterFooter = .Range("a1").Text
End With
End Sub

 

[ceykip]

kod konusundan pek anlamamda detaylı açıklarmısın

 

[Recep İpek]

Excel sayfasında Araçlar>>Makro>>Visual Basic Editor menüsüne bastığınızda bir ekran açılır.

Bu ekranın sol tarafındaki bölümde Thisworkbook ismine çift tıklarsanız sağda boş bir beyaz sayfa açılacak.Bu ekrana benim eklediğim kodları kopyalarsanız her print aldığınızda a1 hücresindeki değeri 1 arttırarak yazdırır.İsterseniz kodlarda a1 yazan bölümleri değiştirerek başka bir hücre adresi yazabilirsiniz.

Not:Kodlar hata verirse Araçlar>>Makro>>Securtiy bölümünde Low'u işaretleyerek tekrar deneyiniz.

 

[ceykip]

evet oldu ama aç kapa yaptıktan sonra artıyo ya işte onu aç kapa yaptıktan sonra değilde tek printte sayfanın 10 kopyasını aldığımızda 10 a kadar numara verse die sormuştum
birde alttada rakam oluo sol üstte de 2 yerde çıkıyor yani
yinede teşekkürler

 

[Recep İpek]

Her 2 dediğinizinde olmaması gerekiyor.

Sizin asıl yapmak istediğiniz örneğin bir print aldığınızda 10 adet sayfa çıkıyorsa her sayfanın altında sayfa numarasını mı yazdırmak istiyorsunuz?

 

[ceykip]

ben hazırladığım bir sayfanın 10 kopyasını aldığımda sağ veya sol üst köşede 1den 10 a kadar numaralanmasını istiyorum

 

[Recep İpek]

Sorunuz şimdi anlaşıldı.Biraz araştırmak gerekiyor.

 

[Recep İpek]

Ekli dosyayı inceleyiniz.

Sub Yazdır()
On Error Resume Next
sayi = InputBox("Kaç kopya istiyorsunuz?", "Bilgi", 10)
If sayi = "" Then Exit Sub
For i = 1 To sayi
    ActiveSheet.PageSetup.RightHeader = i
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next i
son:
Exit Sub
End Sub

 

[ceykip]

çok teşekkür ederim olmuş bunu yine aynı yere kopyalayıp yapıyorum
elllerine sağlık