اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Recommended Posts

الاخوة الاعزاء 

يوجد ملف مرفق به كود حفظ الورقه النشطه الي pdf ولكن اريد تغير مسار الحفظ الي ملف بعيد عن الملف وعدم ظهور قائمه الحفظ

عند الضغط علي زر الحفظ يقوم بحف الملف في مسار اخر في :D

بدون ظهور قائمه الحفظ

شكرا مقدماsave to pdf.xlsm

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

قم بوضع مسار الذي يتم حفظ الملفات بين الاقواس  الملونة بالكود ادناه

 

Sub PDFActiveSheet()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

strTime = Format(Now(), "yyyy-mm-dd")

strFile = "E:\access\dox" & "\" & ws.Name & "_" & strTime & ".PDF"

    ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=strFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=1, _
    To:=2

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler

End Sub
تم تعديل بواسطه shreif mohamed
  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان

  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×