Koda yazdırma adedi eklemek

[meda58]

hocam aşagıdaki kodlar benim çok işime yaradı yalnız sizden bir ricam var bu kodlara sabit olarak kaç adet çıktı almak istediğimizi ekleyebilirmiyiz
örnegin ben sayfamdan hergün 11 adet çıktı almak istiyorum
ilginize şimdiden teşekkürler

Sub yazdir1()
Application.ActivePrinter = "LPT1: üzerindeki HP DeskJet 855C "
ActiveWindow.SelectedSheets.PrintOut
End Sub

 

[security]

Sub yazdir1()
Application.ActivePrinter = "LPT1: üzerindeki HP DeskJet 855C "
ActiveWindow.SelectedSheets.PrintOut Copies:=11, Collate:=True
End Sub

 

[meda58]

bu ne hız ışık hızı gibi hocam teşekkürler harikasınız buraya bayılıyorum

 

[security]

bu ne hız ışık hızı gibi hocam teşekkürler harikasınız buraya bayılıyorum

İyi Çalışmalar...