çoklu sayfa yazdırma sorunu

[kemalkazan]

saygıdeğer hocalarım,
ekli dosyada sayın hamitcan hocamın kodlarını girdim ve başarı ile yazdırdım ancak her bir sıra nosunu iki sayfa yazmakta.şöyleki; birinci sayfada formu ikinci sayfada ise L hücresinde bulunan " sırano girin " başlıklı kısımı yazdırıyor ve bir adet kağıt boşa gidiyor.
sadece form sayfasını yazdırabilir miyim
teşekkür ve saygılarımla

 

[kemalkazan]

sayın ferhat hocam,

1 nolu mesajdaki excel dosyasında "sıra no girin" ile ilgili kısmıda siz düzenlemiştiniz.
şimdiki sorunum hakkında da yardımınızı arz ediyorum
saygılarımla

 

[conari]

Yazdırılacak alanları seçerek
Dosya menüsünden yazdırma alanını belirleye basın

 

[kemalkazan]

toplu yazdırma

Yazdırılacak alanları seçerek
Dosya menüsünden yazdırma alanını belirleye basın

Açıklamanız için teşekkür ederim ama
çok zaman aldığı için "kod görüntüle kısmında "veri" sayfasına sayın hamitcan hocamın kodlarını ekledim,acaba bu kodlarda ufak bir değişiklikle bunu yapmak mümkün değil mi yani ilk ve son sayfa sıra nolarını girdiğimde sadece form sayfasını yazdıracak biçimde
bilmem anlatabildimmi?
teşekkürlerimle

 

[Ferhat Pazarçevirdi]

Toplu yazdırmadan kastınız nedir ?Anlayamadım ...

Eğer "fazladan çıkan, 2.sayfa yazdırılmasın " diyorsanız, conari'nin önerisini uygulayın.

Topu kemali zaten bir sayfa olan bir çıktıda, nasıl toplu yazdırma olur ki?

 

[kemalkazan]

hocam,

saygıdeğer hocam,
1 nolu mesajı inceledi iseniz kod görüntüle kısmı veri sayfasında toplu yazdır kısmı var.kodlar hamitcan hocamındır.bu kodlarla örneğin veri sayfasındaki verileri sıra no 1 ile 15 arasını toplu yazdırabiliyorum,ya da tamamını toplu olarak yazdırabiliyorum.ancak bunu verirken birinci sayfada yazıcıdan form sayfasını alıyorum ancak yazıcıdan 2.boş sayfa çıkıyor ve sadece " L sütunundaki sıra no girin" kısmı yazıyor,takdir edersiniz ki 250-300 kişilik dökümde 250-300 sayfa zayi oluyor.acaba bu kodlarda bir değişiklik yapılabilir mi ki;sadece vermiş olduğum ilk ve son sıra nosunun form kısmını yazdırsın.
umarım açıklamam yeterli olmuştur.
saygılarımla

 

[Ferhat Pazarçevirdi]

O halde kodu şu şekilde kullanın.

Sub topluyazdir()
    ilksayfa = InputBox("İlk Sayfa Nosunu Girin")
    sonsayfa = InputBox("Son Sayfa Nosunu Girin")
    ActiveSheet.PageSetup.PrintArea = "A1:I43"
    For i = ilksayfa To sonsayfa
        [l2] = i
        ActiveSheet.PrintOut
    Next
End Sub

 

[kemalkazan]

hocam

saygıdeğer hocam,
emeğinize ve zaman ayırdığınız için teşekkür eder,saygılarımı sunarım.
verdiğiniz kodlarla sorunumu çözdüm
Sağolunuz.