اخواني الاعزاء تحية طيبه ارجو المساعده باضافة ملف الحفظ الى الكود مع الامتنان .
الكود:
Sub copy_pdf()
'
' copy_pdf ãÇßÑæ
' ÇáãÇßÑæ ãÓÌá ý12/01/2011 ÈæÇÓØÉ ýUSER
'
'
Range("A2:J47").Select
Application.ActivePrinter = "ýCutePDF writer Úáì ýCPW2:"
Selection.PrintOut Copies:=1, ActivePrinter:="ýCutePDF writer Úáì ýCPW2:", _
Collate:=True
End Sub
ملف الحفظ :
E:\2013\invoices\invoices2013