Sayfa Kopyası Kadar Her Sayfayı Numaralandırma

[Seyit Tiken]

Arkadaşlar Herkese Kolay Gelsin...
Beni şöyle bir örnek bir kodum var.

Sayfa1.PrintOut Copies:=10

Örnek kodda gördüğünüz gibi ilgili sayfada 10 kopya çıktı söz konusu. Her kopya sayfasında H1 hücresine 1 sayısıyla başlayarak ve artış yapılarak 2-3-4... gibi kopya sayısı kadar H1 hücresine sayfa numarası yazılacak, ben bir türlü Algoritma'yı oluşturamadım, teşekkür ediyorum, Allah razı olsun.

 

[ÖmerFaruk]

Bu şekil de olmuyor mu?

For i=1 to 10
   Sayfa1.[H1]=i
   Sayfa1.PrintOut Copies:=1
Next i

 

[Seyit Tiken]

Ömer bey bir deniyeyim...

 

[Seyit Tiken]

ÖmerFaruk bey teşekkür ediyorum, Allah razı olsun, işlem tamam.

 

[ÖmerFaruk]

Eyvallah.