Çıktıya sayı ekletme

[yunus48]

Merhaba arkadaşlar elimde 1000 tane boş kağıt var. Ben bu kağıtlara arkalı önlü olacak şekilde sağ üst kısmına sayfa numası ( 1,2,,3..) yazdırmak istiyorum. En basit nasıl yapabilirim. Elimde küçük lexmark mx331 yazıcısı var. Kolay bir yolu var mı? İyi günler.

 

[ccuneyt13]

Merhaba,
Ekle sekmesinden Üst Bilgi Alt Bilgi kısmından Sayfa Numarasını üst yada alt bilgi nere istiyorsanız onu ekleyebilirsiniz.

 

[yunus48]

Merhaba,
Ekle sekmesinden Üst Bilgi Alt Bilgi kısmından Sayfa Numarasını üst yada alt bilgi nere istiyorsanız onu ekleyebilirsiniz.

Ekli dosyayı görüntüle 255891

Merhaba,
Ekle sekmesinden Üst Bilgi Alt Bilgi kısmından Sayfa Numarasını üst yada alt bilgi nere istiyorsanız onu ekleyebilirsiniz.

Ekli dosyayı görüntüle 255891

Merhaba ilginiz için teşekkür ederim. Fakat benim elimde dijitalde sayfa yok. fiziki kağıt var. Ben excede boş bir sayfayı yazdır dediğimde kopya sayısı mesela 1000 girdim. Çıktı da her sayfa da sağ üst köşede sayfa numrası yazsın istiyorum.

 

[Muzaffer Ali]

Merhaba.
Yeni bir Excel dosyası açın ALT+F11 tuşlarına basarak VBA kısmına geçin, Insert / Module seçin, aşağıdaki kodu açılan boş sayfaya kopyalayın.

Bu kod 1 den başlayarak 1000 e kadar her sayfaya artan numara ekler.
Başlangıç yada bitiş numarasını değiştirmek isterseniz For Bak = 1 To 1000 satırında değişiklik yapabilirsiniz.

Sub Test()
    Dim Bak As Integer
    For Bak = 1 To 1000
        ActiveSheet.PageSetup.RightHeader = Bak
        Selection.PrintOut Copies:=1, Collate:=True
    Next
End Sub

bu kodlarda herhangi bir yer seçiliyken F5 tuşuna basarak topluca yazdırabilirsiniz.