Seri yazdırma

[ŞAHİNce]

Ekli örnek dosyada, sayfasındaki yazı içeriğini hazırlıyorum. F11 hücresindeki açılır kutudan Şeflik isimlerini değiştirerek tek tek sayfayı yazdırıyorum.

Bu işlemi tek tek yapmak yerine, tek yazdır komutu ile, F11'deki şeflik isimlerine birer (veya ikişer) sayfa yazdırmak mümkün müdür?

Teşekkürler.

 

[uzmanamele]

Merhaba

Aşağıdaki kodu standart modüle yazarak çalıştırınız.

Sub hizliyaz()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For i = 2 To s2.Range("a65536").End(3).Row
s1.Range("f11") = s2.Cells(i, "a")
s1.PrintOut Copies:=1
Next
End Sub

 

[ŞAHİNce]

İstediğim bu değil. Denedim. Sayfayı bir kez, F11 deki bilgi ile yazdırıyor.
Benim istediği F11 hücresindeki bilgileri, açılır kutu içindeki bilgileir sıra ile değiştirerek, ayrı ayrı yazdırması..

 

[uzmanamele]

İstediğim bu değil. Denedim. Sayfayı bir kez, F11 deki bilgi ile yazdırıyor.
Benim istediği F11 hücresindeki bilgileri, açılır kutu içindeki bilgileir sıra ile değiştirerek, ayrı ayrı yazdırması..

Merhaba
Emin misiniz?
Yazdırmayı mı denediniz kodu çalıştırmayı mı?