Değer Değiştirerek Otomatik Yazdırma

[hilmi0707]

Merhabalar.

İndir Otomatik Yazdırma

Dosyayı indir Otomatik Yazdırma

dosya.co

Öncelikle yardımlarınız için teşekkür ederim. Konu ile ilgili çok yazı var ama işte pek hakim olmadığım için uyarlamayamadım.
Ekteli listede B sütunundaki isimleri yan tarafa otomatik aktaran bir DÜŞEYARA formülü ve DEĞER DEĞİŞTİRİCİ buton kullandım. Her değer değiştiğinde oluşan sayfayı yazdırıyorum.
Bunu otomatik olarak yapabilir miyim? Yani YAZDIR butonu ile tüm listeyi yan tarafa aktarıp sırasıyla yazdırabilir miyim?
Tekrar teşekkürler

İndir Otomatik Yazdırma

Dosyayı indir Otomatik Yazdırma

dosya.co

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Yazdir()
    Dim WF As WorksheetFunction
    Dim Ilk_No As Variant
    Dim Son_No As Variant
    Dim X As Long
    
    Set WF = WorksheetFunction
    
    Ilk_No = InputBox("Lütfen yazdırmak istediğiniz ilk sıra numarasını yazınız...", "Sıra Numarası", WF.Min(Range("A:A")))
    
    If Ilk_No = False Or Ilk_No = "" Or Ilk_No <= 0 Then
        MsgBox "İşleminiz iptal edilmiştir.", vbCritical
        Exit Sub
    End If
    
    Son_No = InputBox("Lütfen yazdırmak istediğiniz son sıra numarasını yazınız...", "Sıra Numarası", WF.Max(Range("A:A")))
    
    If Son_No = False Or Son_No = "" Or Son_No <= 0 Then
        MsgBox "İşleminiz iptal edilmiştir.", vbCritical
        Exit Sub
    End If
    
    If Ilk_No > Son_No Then
        MsgBox "İlk sıra numarası son sıra numarasından büyük olmamalıdır!" & _
               vbCr & "Lütfen kontrol ediniz!", vbCritical
        Exit Sub
    End If
    
    For X = Ilk_No To Son_No
        Range("C2") = X
        ActiveSheet.PrintOut Copies:=1
    Next

    Set WF = Nothing
    
    MsgBox "Veriler yazıcıya gönderilmiştir.", vbInformation
End Sub

 

[ramazan_58]

Merhabalar.

İndir Otomatik Yazdırma

Dosyayı indir Otomatik Yazdırma

dosya.co

Öncelikle yardımlarınız için teşekkür ederim. Konu ile ilgili çok yazı var ama işte pek hakim olmadığım için uyarlamayamadım.
Ekteli listede B sütunundaki isimleri yan tarafa otomatik aktaran bir DÜŞEYARA formülü ve DEĞER DEĞİŞTİRİCİ buton kullandım. Her değer değiştiğinde oluşan sayfayı yazdırıyorum.
Bunu otomatik olarak yapabilir miyim? Yani YAZDIR butonu ile tüm listeyi yan tarafa aktarıp sırasıyla yazdırabilir miyim?
Tekrar teşekkürler

İndir Otomatik Yazdırma

Dosyayı indir Otomatik Yazdırma

dosya.co

sayın hocam tamda benim gönderdiğim kod işinizi görebilir fakat uyarlamanız lazım