Toplu seçim ile yazdırmak

[nane]

Merhabalar,
Sıralı seneler hazırlanmış dosyada diğer sayfadan senet numarasına göre çağırıp önizleme yaptıktan sonra tek tek yazdırabiliyorum.
Yapmak istediğim ise toplu olarak yani 15 den 21 e kadar veya 36 48 e kadar seçebilip bir defada yazdır butonuna tıklamak suretiyle yazdırmak istiyorum. Sanırım anlatabilmişimdir.
Dosya ektedir.

Yardımlarınıa için teşekkürler.

Yb

 

[halit3]

Merhabalar,
Sıralı seneler hazırlanmış dosyada diğer sayfadan senet numarasına göre çağırıp önizleme yaptıktan sonra tek tek yazdırabiliyorum.
Yapmak istediğim ise toplu olarak yani 15 den 21 e kadar veya 36 48 e kadar seçebilip bir defada yazdır butonuna tıklamak suretiyle yazdırmak istiyorum. Sanırım anlatabilmişimdir.
Dosya ektedir.

Yardımlarınıa için teşekkürler.

Yb

Bu nu denermisiniz.

Sub yazdır()

baslangıc = Application.InputBox("Başlangıç sayısını giriniz..", "Başlangıç sayı", "1", 400, 30, , Type:=1)
    
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
bitis = Application.InputBox("Bitiş sayısını giriniz..", "Bitiş sayı", "1", 400, 30, , Type:=1)
    
If bitis = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

If baslangıc > bitis Then
MsgBox " baslangıc bitişten büyük olmalı"
Exit Sub
End If
 
For r = baslangıc To bitis
Sheets("SENET GÖRÜNTÜ").Cells(3, "Q").Value = r
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next r
MsgBox "işlem tamam"
End Sub

 

[nane]

Halit bey teşekkürler çok güzel olmuş

 

[halit3]

Halit bey teşekkürler çok güzel olmuş

Teşekkürler iyi çalışmalar