تحويل pdf حسب اخر رقم مسلسل

[محمد زيدان2024]

يجب عند تحويل الاكسل الى pdf يتم عمل الصفحات حسب اخر رقم مسلسل وليس كل الصفحات

مرفق الملف

New ورقة عمل Microsoft Excel.xlsb

تم تعديل مايو 12, 2024 بواسطه 02008خالد

[محمد هشام.]

Sub PDF_شيت_ترم_2()

    Dim FSO As Object
    Dim S(1) As String
    Dim sNewFilePath As String
    Dim Row As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    S(0) = ThisWorkbook.FullName
    
    If FSO.FileExists(S(0)) Then
        S(1) = FSO.GetExtensionName(S(0))
        If S(1) <> "" Then
            S(1) = "." & S(1)
Set WS = ActiveSheet
lastRow = WS.Columns("A:A").Find(What:="*", _
   SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  
  With WS.PageSetup
        .PrintArea = "$A$3:$CH$" & lastRow
  End With
   sNewFilePath = ThisWorkbook.Path & "\شيت الصف السادس ترم ثان.pdf"
        WS.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNewFilePath, _
          Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
    Else
        MsgBox "لم يتم حفظ الملف ..يوجد خطأ ما "
    End If
    
    Sheets("شيت2").Activate
    Set FSO = Nothing
'    mainy
    m = MsgBox("تم تصدير الشيت خارج الشيت بإسم شيت الصف السادس ترم ثان" & vbNewLine _
                            & "هذا الملف موجود فى نفس مكان برنامج الكنترول شيت", _
    vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal + vbMsgBoxRight, _
    "تم تصدير شيت صف السادس ترم 2 بصيغة pdf.")
End Sub

 

تم تعديل مايو 12, 2024 بواسطه محمد هشام.

[محمد زيدان2024]

شكرا @محمد هشام.

[محمد زيدان2024]

بس المفروض  يكون في معلومات ظاهرة في الصفحة 2 و 3 اللى هى بيانات حرف م المفورس 3 صفوف فيهم حرف م  مش متواجدة في الصفحات 2 ولا 3  @محمد هشام.

تم تعديل مايو 13, 2024 بواسطه محمد زيدان2024

[محمد هشام.]

15 دقائق مضت, محمد زيدان2024 said:

بس المفروض  يكون في معلومات ظاهرة في الصفحة 2 و 3 اللى هى بيانات حرف م مش متواجدة في الصفحات 2 ولا 3

في 12‏/5‏/2024 at 21:06, محمد زيدان2024 said:

عند تحويل الاكسل الى pdf يتم عمل الصفحات حسب اخر رقم مسلسل وليس كل الصفحات

لا افهم مادا تقصد لاكن طلبك كان في في تحديد اخر رقم ضمن المسلسل وهو على ملفك الرقم 78  وهدا ما ينفده الكود 

 

شيت الصف السادس ترم ثان.pdf

[محمد زيدان2024]

اول صفحة ظاهر  حرف  م في 3 صفوف لكن الصفحة التانية والثالثة ظاهر صفين حرف م

[محمد زيدان2024]

تم حل المشكلة شكرا اخ @محمد هشام. بارك الله فيك وزادك من فضله