Yazdırılan forma seri no verme

[adem7958]

Arkadaşlar ben oluşturmuş olduğum bir formdan 50 adet yazdırmak istiyorum.

50 adet yazdır deyince aşağıdaki şekilde seri no versin

1. sayfaya - 00010

2. sayfaya - 00020....

50.sayfaya - 00500 gibi seri no vermek istiyorum. nesıl yapabilirim

 

[Necdet]

Merhaba,

Sorunuzu örnek dosya ile desteklersiniz alacağınız yanıt çabuk ve doğru olacaktır.

 

[Orion1]

ilk sayfadan sırayla gidildiğinini düşünürsek a1 hücresine
eğer döngüyse

for i = 1 to 50
  range("A1").value = i*10
  activesheet.printout
next

eğer sayfayı tek tek yazdırıyorsan

range("A1").value=activesheet.index*10

 

[adem7958]

Hocam,

for i = 1 to 50
range("A1").value = i*10
activesheet.printout
next


yazdırılacak adedi ben girmek istiyorum, birde serinoyu 6 haneli olarak basmasını istiyorum,

 

[adem7958]

Hocam,

for i = 1 to 50
range("A1").value = i*10
activesheet.printout
next


yazdırılacak adedi ben girmek istiyorum, birde serinoyu 6 haneli olarak basmasını istiyorum,

 

[Orion1]

For i = 1 To 50
    Sheets(i).Range("A1").Value = i * 10
    Sheets(i).PrintOut Copies:=2 'her sayfadan 2 adet yazar
Next