كود بقوم بيقوم بحفظ الصفحه فقط الى يتم الوقف بداخلها PDF

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام ارجو المساعده

يوجد كود بالملف بقوم بعمل الشيت كامل بصيغه PDF  ( كل الصفحات ) ثم يقوم بارسال اميل

ارجو التعديل عليه بحيث يقوم بحفظ الصفحه فقط الى يتم الوقف بداخلها

ويكون اسم الملف محتوى الخليه التى يتم الوقوف عليها

اى عند الوقف على الخليه B23  يتم حفظ الصفه التى تحتوى على الخليه B23  ويكون اسم الملف عند  الحفظ هو محتوى الخليه B23  .... ويتم ايضا ارسالة عن طريق الاميل

او هل يمكن اختيار الصفحه المراد حفظها PDF  فقط

جزاك الله كل الخير

PDF اسم الصفحة.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

لو ان الامر .... غير ممكن 

هل يمكن عند كتابه رقم الصفحه فى خليه محدده مثلا يتم تحويل الصفحه التى تم تحديها الى PDF

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

هل يمكن تحقيق المطلوب

تم تعديل يوليو 5, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام وجدت كود يقوم بتحويل كما تم تحديد الى pdf

الا انه لا يعمل عند استخدامه فى المرفق

اين الخطاء

Option Explicit

Sub RDB_Selection_Range_To_PDF()
  On Error Resume Next
    Dim FileName As String
    If ActiveWindow.SelectedSheets.Count > 1 Then
        MsgBox "There is more then one sheet selected," & vbNewLine & _
               "ungroup the sheets and try the macro again"
    Else
    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox("SELECT RANGE", "RANGE TO PDF", Type:=8)
   ' MsgBox "YOU SELECTED  " & "(" & rng.Address(0, 0) & ")" & "  TO TURN IT & SAVE IT AS PDF FILE"
    If Not rng Is Nothing Then
        Debug.Print rng.Address(external:=True)
    rng.Select
 
        FileName = RDB_Create_PDF(Selection, ActiveSheet.[A1].Value, True, True)

        If FileName = "" Then
        Else
            MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                   "Microsoft Add-in is not installed" & vbNewLine & _
                   "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                   "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                   "You didn't want to overwrite the existing PDF if it exist"
        End If
            End If
    End If
End Sub

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

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

 

أخي الحبيب أبو حنين، تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... ورمضان كريم

 

قمت ببعض التعديلات على كود PDF وإضافة تسميتين الأولى AreaPDF لتحديد ناحية الطباعة للكارت التي تم تحديدها بالخلية AN1 والتسمية الثانية NamePDF لتحديد رقم السطر لاسم الكارت من العمود B... وقد تركت التاريخ المضاف للاسم عند إرسال الملف إلى PDF...

ولإرسال أي كارت إلى ملف PDF يكفي كتابة رقم Payroll للكارت المعني في الخلية AN1 ثم تنفيذ كود PDF... أرجو أن يكون هذا هو المطلوب...

 

أخوك بن علية

 

 

المرفق : PDF اسم الصفحة.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب 

الاخ الكريم

الاخ الكبير بن علية حاجى 

والله  اسعدنى وجودك وعودا حميدا بين اخوانك واصدقائك 

الحمد لله انك بكل خير

ورمضان كريم عليك وعلى الاسره الكريمة وسائر المسلمين

وتقبل الله منك صيامك وقيامك وسائر اعمالك

اما عن الحل ...

جزاك الله كل الخير . 

 كل اضافه قمت بها اخى الحبيب ... فى مكانها الصحيح

جزاك الله خيرا