Yazıcıdan çıkacak kopya sayısını hücreden almak

[vurkan]

Arkadaşlar merhaba
Sub Resim1_Tıkla()
Sayfa4.PageSetup.PrintArea = "$A$1:$L$40"
Sayfa4.PrintOut
End Sub

Şeklindeki bir yazdırma koduna nasıl bir ekleme yaparsam YAZICI isimli sayfanın K4 Hücresinde yazan sayı kadar kopya alırım. (Aynı sayfayı K4 hücresindeki sayı kadar yazdıracak.) saygılar.

 

[Ömer]

Merhaba,

Aşağıdaki ilave ile yapabilirsiniz.

Sub Resim1_Tıkla()
Sayfa4.PageSetup.PrintArea = "$A$1:$L$40"
Sayfa4.PrintOut Copies:=Sayfa4.Range("K4")
End Sub

 

[vurkan]

Sayın Ömer ilginize teşekkür ederim. İlave bir istirhamım olsa. Toplu gönderilen yazılarda doğruluğu kontrol için kağıt harcamak yerine ön izleme yapabilmek için nasıl bir satır daha gerekirdi acaba? Bu kodda değil ama bazen böyle bir şeye ihtiyaç duyuyorum. saygılar.

 

[Ömer]

PrintOut

yerine, aşağıdaki kodu kullanmanız yeterli olur.

PrintPreview

.

 

[vurkan]

Sayın Ömer ilginize çok teşekkür ederim. Yüreğine sağlık