حفظ ورقه عمل بصيغة PDF

[ابو حمادة]

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

بمناسبه شهر رمضان المعظم

كل عام وانتم والامه الاسلاميه بكل خير اعاده الله علينا وعليكم بالخير واليمن والبركات 

محتاج طلب من الاساتذه الكرام

مرفق ملف محتاج حفظ ورقه بداخل الملف بصيغه PDF مع العلم اننى اعمل بنظام اوفيس 2007 

ولكم مني جزيل الشكر والاحترام

 

 

PDF ملف تست.xlsb

[أ / محمد صالح]

يمكنك استعمال هذا الكود

activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\mas.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

بالتوفيق

[ابو حمادة]

شكرا لك استاذي الفاضل علي اهتمامك

لكن
للاسف الكود عند استخدامه تظهر رساله خطأ 

[محمد هشام.]

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

Option Explicit

Sub SaveAsPDF()
    Dim CrWS As Worksheet: Set CrWS = Sheets("بيانات")
    Dim lastRow As Long: lastRow = CrWS.Cells(CrWS.Rows.Count, "A").End(xlUp).Row
    Dim xPath As String: xPath = ThisWorkbook.Path & "\كشف_التلاميذ.pdf"
    
    CrWS.Range("A2:J" & lastRow).ExportAsFixedFormat Type:=xlTypePDF, Filename:=xPath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    MsgBox "تم حفظ الملف بنجاح", vbInformation
End Sub

 

[ابو حمادة]

شكرا اخي الكريم استاذي محمد هاشم

للاسف بردو هذا الكود يظهر خطأ كما واضح في الصورة نفس مشكله الكود السابق

مش عارف العيب فين بالظبط هل فى اوفيس 2007 ولا ايه مش عارف

علما اننى دورت فى ملف الحفظ علي حفظ بصيغه pdf  في خصائص الحفظ غير موجوده 

[Eng.Qassim]

52 دقائق مضت, ابو حمادة said:

للاسف بردو هذا الكود يظهر خطأ كما واضح في الصورة نفس مشكله الكود السابق

السلام عليكم...

عجبني هذا اليوم الدخول لموقع اكسل رغم اني مش فاهم منه حاجة الا القليل القليل ..

جربت الكودين للاساتذة ..واثنينهم شغالات تمام 

 

[أ / محمد صالح]

16 ساعات مضت, ابو حمادة said:

شكرا لك استاذي الفاضل علي اهتمامك

لكن
للاسف الكود عند استخدامه تظهر رساله خطأ 

عذرا اخي الكريم لم أنتبه لأنك تستعمل نسخة أوفيس 2007 وبالفعل هذه الميزة غير موجودة فيه

يمكنك استعمال كود الطباعة العادي في حالة وجود طابعة pdf في ويندوز

يمكنك تجربة هذا الكود

Sub ExportWorksheetToPDF_2007()
    Dim ws As Worksheet
    Dim pdfFilePath As String
    Dim wbPath As String
    Dim objPrinter As Object
    
    ' تحديد ورقة العمل الحالية
    Set ws = ActiveSheet

    ' الحصول على مسار المصنف الحالي
    wbPath = ThisWorkbook.Path

    ' التحقق مما إذا كان المصنف قد تم حفظه
    If wbPath = "" Then
        MsgBox "يرجى حفظ المصنف أولاً لتحديد المسار.", vbExclamation
        Exit Sub
    End If

    ' تحديد مسار واسم ملف PDF
    pdfFilePath = wbPath & "\" & ws.Name & ".pdf"

    On Error Resume Next
    ' تحديد طابعة الـ PDF الافتراضية
    Set objPrinter = CreateObject("Scripting.FileSystemObject")

    If objPrinter Is Nothing Then
        MsgBox "لا يمكن تصدير PDF. يرجى التأكد من تثبيت إضافة التصدير.", vbCritical
        Exit Sub
    End If
    
    ' تصدير الورقة باستخدام طابعة PDF خارجية
    ws.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF", _
        PrintToFile:=True, PrToFileName:=pdfFilePath
    
    MsgBox "تم تصدير ورقة العمل إلى ملف PDF بنجاح: " & pdfFilePath, vbInformation
End Sub

بالتوفيق

[ابو حمادة]

شكرا لاهتمامك استاذ محمد صالح

هذا الكود يعمل لكن بيطبع صوره فارغه كما واضح فى الصورة 

انظر الي الصور المرفقه

 

[أ / محمد صالح]

هل يوجد في ويندوز طابعة pdf ؟

هل جربت طباعة الملف على طابعة pdf يدوي؟ 

إذا كانت الإجابة نعم 

فالكود يقوم بهذا 

وإلا فأنصحك بترقية جهازك ونسخة الأوفيس لتستمتع بكل الميزات الحديثة 

بالتوفيق