Çözüldü Sıralı sayfa numarası yazdırma hakkında.

[Garuramon]

Merhaba Arkadaşlar,

Kullanmış olduğum Ziyaretçi ve Araç Kayıt Defterinde, Sıralı sayfa numarası yazdır butonuna bastığım zaman, tercihe bağlı olarak 1-99 veya 2-100 sayıları arası sıra numarası vererek çıktı almaktaydım.

Sıra numarası 1-99 ve 2-100 olmasının nedeni bu defterin sayfalarına önlü arkalı olarak sıra numarası verilmesidir. Ancak 2-100 arası yazdır dediğim zaman ve yazdırma işlemi tamamlandığında, sayfaların arkasına 1-99 arası sayfa numarası yazdırmak istediğimde, sayfa numaralarının sıralı çıkması için çıktıları ters düz yapmam gerekiyor. Bu zaman kaybına neden oluyor. Soruna çözüm olarak formülün 2-100 arası değil 100 den geriye doğru 2 ye kadar revize edilmesinin doğru olacağını düşündüm. Bilgi sahibi olan arkadaşlar yardımcı olurlarsa sevinirim.Saygılarımla.

 

[veyselemre]

Sub yazdir()
    If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
    sor = InputBox("BAŞTAN SONA YAZDIRMAK İÇİN İLK VE SON SAYFAYI 2-100 VEYA 1-99 ŞEKLİNDE" & vbCr & "SONDAN BAŞA YAZDIRMAK İÇİN 100-2 VEYA 99-1 ŞEKLİNDE GİRİNİZ")
    bl = Split(sor, "-")
    If UBound(bl) <> 1 Then Exit Sub
    yon = IIf(Evaluate(sor) > 0, -1, 1)
    bas = bl(0)
    son = bl(1)
    If Not (IsNumeric(bas) And IsNumeric(son) And son > bas) Then Exit Sub
    For Say = bas To son Step 2 * yon
        [j1] = "Sayfa: " & Say
        ActiveSheet.PrintOut
    Next
End Sub

 

[Garuramon]

Sayın @veyselemre ;

Formül düşündüğüm gibi çalışıyor. Ancak nadir de olsa bazen yazıcıdan kaynaklı takılmalar olabiliyor. Örneklendirirsek 92. sayfada durdu ve elimde 100,98,96,94. sayfalar var, butona tekrar 92-2 aralığını yazdır dediğim zaman formül çalışmıyor. Bu sorunu düzeltebilir misiniz.

 

[veyselemre]

Sub yazdir()
    If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
    sor = InputBox("BAŞTAN SONA YAZDIRMAK İÇİN İLK VE SON SAYFAYI 2-100 VEYA 1-99 ŞEKLİNDE" & vbCr & "SONDAN BAŞA YAZDIRMAK İÇİN 100-2 VEYA 99-1 ŞEKLİNDE GİRİNİZ")
    bl = Split(sor, "-")
    If UBound(bl) <> 1 Then Exit Sub
    bas = Val(bl(0))
    son = Val(bl(1))
    If Not (IsNumeric(bas) And IsNumeric(son)) Then Exit Sub
    For Say = bas To son Step IIf(bas <= son, 2, -2)
        [j1] = "Sayfa: " & Say
        ActiveSheet.PrintOut
    Next
End Sub

 

[Garuramon]

Sayın @veyselemre ;

Yardımlarınız için çok teşekkür ederim, emeğinize ,elinize sağlık. Formül sorunsuz olarak çalışıyor. Konu kapatılabilir.