İsteğ Bağlı Yazdırma İşlemi

[mustafa1205]

Örnek dosyamda açıklama yapmaya çalıştım. Düşey ara ile bilgilerini çağırdığım personelin J1 hücresinde bulunan rakama kadar teker teker çağırarak bilgi kartlarını ard arda yazdırabileceğim bir kod istiyorum. Teşekkür ederim...

 

[Orion1]

Dosyanız ektedir.

Sub yazdir59()
Dim i As Integer
ActiveSheet.PageSetup.PrintArea = "A1:B5"
For i = 1 To Range("J1").Value
    Range("F1").Value = i
    ActiveSheet.PrintOut
Next i
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[muygun]

Merhaba;
Syn. Orion1 sorunu çözmüş ama başlangıç no'sunu farklı belirlemek istediğiniz veriler için alternatif olsun.
İnceleyin.
NOT: Yazıcı çıktısı için deneme yapmadım.
İyi çalışmalar.

 

[mustafa1205]

Evren Hocam çok teşekkür ederim. Tam istediğim gibi olmuş. Elinize sağlık....

 

[mustafa1205]

Sayın Muygun sizede çok teşekkür ederim. Başlangıç rakamını düşünmeniz ayrıca güzel olmuş. Benim aklıma gelmemişti. Çok teşekkürler.

 

[mustafa1205]

Elzem bir ihtiyaç değil ama şimdi aklıma geldi. Yazdırmak istediğim veri başlangıcı genelde sabit. 1. Sayfa 1 deki sıralamada bulunan veri sayısını sayıp (bu örnek için 6) yazdırmaya başlamadan önce msg box ile söyleyip kaç adedini yazdırmak istediğimi sordukta sonra girilen rakama göre okadar adedin yazdırma işlemi yapılabilir mi? Yani bir nevi J hücresinde bulunan veriyi iptal edip kod ile yapmak.

 

[Orion1]

Elzem bir ihtiyaç değil ama şimdi aklıma geldi. Yazdırmak istediğim veri başlangıcı genelde sabit. 1. Sayfa 1 deki sıralamada bulunan veri sayısını sayıp (bu örnek için 6) yazdırmaya başlamadan önce msg box ile söyleyip kaç adedini yazdırmak istediğimi sordukta sonra girilen rakama göre okadar adedin yazdırma işlemi yapılabilir mi? Yani bir nevi J hücresinde bulunan veriyi iptal edip kod ile yapmak.

Dosyanız ektedir.

Sub yazdir59()
Dim i As Integer, yaz
yaz = InputBox("YAZDIRILACAK SAYIYI GİRİNİZ : ", "evrengizlen@hotmail.com", 6)
If yaz = "" Then Exit Sub
If Not IsNumeric(yaz) Then
    MsgBox "Yazdırma sayısı rakam değil.İşlem iptal oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
ActiveSheet.PageSetup.PrintArea = "A1:B5"
For i = 1 To yaz
    Range("F1").Value = i
    ActiveSheet.PrintOut
Next i
ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[mustafa1205]

Evren Hocam çok güzel olmuş. Elinize sağlık. Vaktiniz olursa son olarak InputBox'da yazdırılacak toplam veri sayısı miktarı da gösterilebilir mi ?Yani toplam 6 adet yazdırılacak veriyi InputBox da rakamsal olarak çıkartılabilirmi ?

 

[Orion1]

Evren Hocam çok güzel olmuş. Elinize sağlık. Vaktiniz olursa son olarak InputBox'da yazdırılacak toplam veri sayısı miktarı da gösterilebilir mi ?Yani toplam 6 adet yazdırılacak veriyi InputBox da rakamsal olarak çıkartılabilirmi ?

Dosyayı 7 nolu mesajda güncelledim.

 

[mustafa1205]

Sayın Evren Hocam çok teşekkür ederim. Elinize Sağlık...