tek bir tiklamayla coklu baski yapilabirmi

[dennisf06]

merhaba

hücreye bir rakam girdikten sonra bir buton yardimiyla sayfada asagidaki gibi bir cikti alinabilir mi acaba.(hücredeki sayi 10 olsun )

1.baskida 10 / 1 sayfada yazsin
2.baskida 10 / 2 sayfada yazsin
3.baskida 10 / 3 sayfada yazsin
..
..
10.baskida 10 /10 sayfada yazsin

tesekkür ederim.

 

[asi_kral]

Merhaba
Açıklamalarınız bana yeterli gelmedi tam olarak ne yapmak istiyorsunuz.
Her butona bastığınız da 1 sayfayı mı yazdırsın.

 

[dennisf06]

merhaba

butona yazdir dedigim zaman hücredeki rakam kadar sayfa sayisi olsun istiyorum. hücrede 10 yaziyorsa 10 tane ayri ayri sayfa, 7 yaziyorsa 7 tane ayri ayri sayfa. ama her sayfanin 10/1, 10/2, 10/3....10/10 seklinde ayri olmasini istiyorum. umarim aciklayabilmisimdir. tesekkür ederim.

 

[asi_kral]

Merhaba
istediğiniz tam olarak bu mu_?

Option Explicit
Sub yazdır()
Sheets("Tabelle1").PrintOut Range("E9"), Range("C9"), 1
End Sub

Not : Tabelle2 sayfasında çalıştırınız.

 

[dennisf06]

merhaba,

tesekkürler öncelikle ilginize. butona bastigimda hücrede 5 yaziyorsa bes tane ayri ayri sayfa bassin istiyorum. 1.sayfada sadece 5 / 1, 2.sayfada 5 / 2, 3.sayfada 5 / 3,4.sayfada 5 / 4,5.sayfada 5 / 5.

 

[dennisf06]

merhaba,

farkli bir cözüm önerisinde bulunulabilecek var mi acaba. belki farkli bir yolla cözebilirim veya benzer bir link fikir verebilir. tesekkürler.

 

[dennisf06]

merhaba

yusuf 44 ustamizin asagidaki kodlarini cözüme nasil uyarlayabilirim acaba.tesekkürler.

http://www.excel.web.tr/f14/sayfa-basyldyoynda-numara-arty-y-t103841.html


Sub etiket()
Dim sm As Worksheet

Set sm = Sheets("etiket")

ilk = InputBox("Başlangıç seri numarasını giriniz")
son = InputBox("Bitiş seri numarasını giriniz")


yazdır = MsgBox(son - ilk + 1 & " adet etiket bastırılacaktır: emin misin?", vbYesNo, "Print")
If yazdır = vbYes Then
For i = ilk To son
sm.Range("g16") = i
sm.PrintOut Copies:=1
Next
End If


End Sub