Sayfayı istenilen sayı kadar yazdırma ve numaralandırma

[kutlayalp]

Arkadaşlar yardımınıza ihtiyacım var. Konusu şöyle...
Excel de hazırladığım bir tablo var. Bu tablo 1 sayfa. Şimdi burada olmasını istediğim makro şöyle ki çalıştırdığım zaman aynı sayfayı 100 adet yazdırsın ve her sayfayı 1 den başlayarak numaralandırsın. İlginiz için şimdiden teşekkürler

 

[abdi]

Sayın kutlayalp,
mesaj başlığınız forum kurallarına aykırı moderator arkadaşlar sizin başlığınızı sanıyorumki ilgili yere taşıyacaklardır.

 

[Levent Menteşoğlu]

Sayfa numarası hangi hücreye yazılacaktır. Ayrıca yazdırılacak sayfanın adı nedir?

Not:Bir lütfen sorunuzu tanımlayan başlıklar şeçiniz.

 

[Seyit Tiken]

Bu kodu kendinize uyarlayınız.

Sub Düğme2_Tıklat()
If [A1] = 5 Then
MsgBox "Sayf Sayısı 100'e Ulaştı"
Else
[A1] = [A1] + 1
Sheets("Sayfa1").PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End If
End Sub

 

[kutlayalp]

sayın Seyit Tiken.. Örnek çalışman için çok teşekkür ederim. Gerçekten çok faydalı oldu benim için. Makroyu çalıştırdığım da 1 Sayfa değilde istediğim sayfa sayısı kadar kopya alabilirmiyim peki... Tabi numaralandırma işlevini bozmadan.
Ama genede ışık tuttuğunuz için teşekkür ederim tekrar

 

[kombo]

Sn. kutluyalp
Makro ile değilde daha ilkel bir yöntemde önerebilirim.
SayfaYapısı/Çalışma sayfası Sekmesinden Üstte Yinelenecek Satırlar Kutucuğuna tablonuzun olduğu satırları yazın.(Eğer tablonuz dikeyde 56 satırdan az ise 1:56 satırlara kadar seçin.) Yine Sayfa Yapısı/ÜstBilgiAltBilgi den Alt bilgiyi "Sayfa 1/?" seçin tamam deyip çıkın. 56. satırdan sonra her seçeceğiniz satır size numaralı bir sayfa olarak gelecektir. Ama dediğim gibi ilkel ve uğraştırıcı bir yöntem. :hey:

 

[kutlayalp]

Sn. Kombo..
İlginiz ve paylaştığınız bilgiler için teşekkür ederim. Tam olarak istediğim sonucu vermiyor ama bu arada başka bir bilgiye ulaşmış oldum. Teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Sayfa ayarlarının yapıldığını düşünerek hazırladığım aşağıdaki kodu bir butona atayarak denermisiniz.

Sub YAZDIR()
For X = 1 To 5
    With ActiveSheet.PageSetup
        .CenterFooter = "Sayfa &P / " & X
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=X, Collate:=True
Next
End Sub

Yukarıdaki kodu 5 kopya üzerinden düzenledim siz kendinize göre uyarlarsınız.

 

[kombo]

sn. kutlayalp
Örnek dosya veya boş bir tablo gönderirseniz çözüm için yardımcı olacak arkadaşlar hayali çalışmaktan kurtulurlar. Sizde daha çabuk sonuca ulaşırsınız.

 

[kutlayalp]

İstediğim sonuca ulaştım arkadaşlar. Aşağıda ki makro ile aynı sayfadan alacağım kopya sayısı kadar a1 hücresi de 1 den başlayarak artacak. Tabi mesela ben iki satırdan oluşan makroyu kopyalayarak çıktıyı ve sayfa numarasını 2 yaptım. ne kadar sayfa çıkaracaksam o kadar kopyalayacağım yani ama en azından şimdilik işimi gördü. Hepinize yardımlarınız için teşekkür ederim..

Sub Düğme1_Tıklat()


Range("A1") = Range("A1") + 1

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

Range("A1") = Range("A1") + 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

 

[Korhan Ayhan]

Selamlar,

Benim önerdiğim kodu da bir denermisiniz. Belki ihtiyacınızı karşılar.

 

[Ali]

Alternatif olarak

Sub aktifsayfayazdir()
Dim Kopyasayısı As Long
Dim Kopyanumarası As Long
Kopyasayısı = Application.InputBox("Kaç kopya alacaksınız", Type:=1)

For Kopyanumarası = 1 To Kopyasayısı
ActiveSheet.PrintOut


Next Kopyanumarası
End Sub

 

[Ali]

Sub aktifsayfayazdir()
Dim Kopyasayısı As Long
Dim Kopyanumarası As Long
Kopyasayısı = Application.InputBox("Kaç kopya alacaksınız", Type:=1)

For Kopyanumarası = 1 To Kopyasayısı
With ActiveSheet
.Range("a1").Value = Kopyanumarası & " of " & Kopyasayısı
.PrintOut
Next Kopyanumarası
End Sub

Başlık kısmına numaralandırmada dediğiniz için
.Range("a1").Value = Kopyanumarası & " of " & Kopyasayısı
kısmı ilave ettim.

Ben sol üst kısımda gözükmesini istediğim için Range("a1") olarak ayarladım.Siz kendinize göre belirlersiniz

 

[kutlayalp]

çok teşekkürler arkadaşlar ellerinize emeklerinize sağlık. iyi ki varsınız...