Hazır koda kopya sayısı ekleme hk.

[Grknpkdzn]

Merhaba.
Aşağıda hali hazırda çalışan koda, kopya sayısı = 3 eklemek istiyorum.
Yardımlarınızı rica ederim.

Private Sub CommandButton1_Click()

Set WD = CreateObject("word.Application")
WD.Visible = True
yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya
Application.Wait (Now + TimeValue("0:00:03"))
WD.ActiveDocument.PrintOut
Dosya = Dir
Loop
Application.Wait (Now + TimeValue("0:00:03"))
WD.Application.Quit
MsgBox "İşlem tamamlanmıştır."
End Sub

 

[Korhan Ayhan]

Deneyiniz.

WD.ActiveDocument.PrintOut, Copies:=3

 

[Grknpkdzn]

Teşekkür ederim.
Elinize sağlık..