Toplu Yazdır nasıl yapabilirim?

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda katılım belgesi var Combobox tan seçip yazdırıyorum. Ancak tek tek seçip yazdırmak yerine toplu yazdırmak istiyorum. Nasıl yapabilirim.

Saygılar

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub hepsiniyaz()
ss = Sheets("liste").Range("b65536").End(3).Row
For i = 2 To ss
Sheets("Bilgisayar Kurs Belgesi").ComboBox1.Text = Sheets("liste").Cells(i, "b")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

 

[Mdemir63]

Sub hepsiniyaz()
ss = Sheets("liste").Range("b65536").End(3).Row
For i = 2 To ss
Sheets("Bilgisayar Kurs Belgesi").ComboBox1.Text = Sheets("liste").Cells(i, "b")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub


Selamlar,
Hocam elinize sağlık teşekkür ederim.

Sadece kırmızı ile belirttiğim satırların zahmet olmazsa açıklaması nedir ?
Saygılar

 

[uzmanamele]

merhaba

ss ile, liste sayfası B sütunu son satır nosunu alıyoruz.
2 den son satıra kadar döngü kuruyoruz.
bilgisayar kurs belgesi sayfası üzerindeki combobox1 değerini liste sayfası B sütunu değerlerini döngü ile artırıyoruz.
her for-next döngü değerine göre sayfayı yazdırıyoruz

 

[Mdemir63]

merhaba

ss ile, liste sayfası B sütunu son satır nosunu alıyoruz.
2 den son satıra kadar döngü kuruyoruz.
bilgisayar kurs belgesi sayfası üzerindeki combobox1 değerini liste sayfası B sütunu değerlerini döngü ile artırıyoruz.
her for-next döngü değerine göre sayfayı yazdırıyoruz

Hocam açıklamalarınız ve emeğiniz için çok teşekkür ederim. İyi ki varsınız.

Saygılar