تعديل في كود

[الشيباني1]

اخواني الاعزاء  تحية طيبه ارجو المساعده باضافة ملف الحفظ الى الكود  مع الامتنان .

الكود:

 

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

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم الشيباني، يستحسن وضع ملف به الكود دون بيانات خاصة لأن الكود الذي وضعته غير واضح تماما (عدم وضوح الكلمات بالعربية بشكل صحيح)...

 

أخوك بن علية