printout komutunda üç kopya baskı yapmasını sağlamak

[hikmet]

merhaba hocalarım,
userformda düzenlediğim fatura'da printout komutu ile işaretlediğim bölgeyi önizleme sayfası yapmadan doğrudan yazıcıya aktarıyorum. öğrenmek istediğim önizleme sayfası yapmadan userformda print makrosunda değişiklik yaparak üç kopya baskı yapmasını sağlayabilirimiyiz. Sorunu önizleme yaparak yazıcı ayarlarında kopya sayısını 3 olarak belirtip çözmek istemiyorum doğrudan yine yazıcıya gitmesi gerekiyor ve üç kopya olarak. İlginize teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Kodlarınız nasıl bilemiyorum ama verilerinizin A1:A20 aralığında olduğunu varsayarsak aşağıdaki kod işinizi görür.

Range("A1:A20").Select
Selection.PrintOut Copies:=3, Collate:=True

 

[hikmet]

Sn.Cost Control
yadırma kodu aşağıdaki gibidir.İlginize teşekkür ederim.



Private Sub CommandButton4_Click()
Sheets("fatura").PrintOut


End Sub

 

[osmantelci]

Sheets("fatura").PrintOut 3, 1

 

[hikmet]

sn.cost control, sn osmantelci
gönderdiğiniz bilgiler için teşekkür ederim her iki durumda da üç kopya baskı yapıyor ilginize çok teşekkür ederim.