محمد زيدان2024 قام بنشر مايو 12 مشاركة قام بنشر مايو 12 (معدل) يجب عند تحويل الاكسل الى pdf يتم عمل الصفحات حسب اخر رقم مسلسل وليس كل الصفحات مرفق الملف New ورقة عمل Microsoft Excel.xlsb تم تعديل مايو 12 بواسطه 02008خالد رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر مايو 12 أفضل إجابة مشاركة قام بنشر مايو 12 (معدل) 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 بواسطه محمد هشام. 1 2 رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر مايو 13 الكاتب مشاركة قام بنشر مايو 13 شكرا @محمد هشام. رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر مايو 13 الكاتب مشاركة قام بنشر مايو 13 (معدل) بس المفروض يكون في معلومات ظاهرة في الصفحة 2 و 3 اللى هى بيانات حرف م المفورس 3 صفوف فيهم حرف م مش متواجدة في الصفحات 2 ولا 3 @محمد هشام. تم تعديل مايو 13 بواسطه محمد زيدان2024 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر مايو 13 مشاركة قام بنشر مايو 13 15 دقائق مضت, محمد زيدان2024 said: بس المفروض يكون في معلومات ظاهرة في الصفحة 2 و 3 اللى هى بيانات حرف م مش متواجدة في الصفحات 2 ولا 3 في 12/5/2024 at 21:06, محمد زيدان2024 said: عند تحويل الاكسل الى pdf يتم عمل الصفحات حسب اخر رقم مسلسل وليس كل الصفحات لا افهم مادا تقصد لاكن طلبك كان في في تحديد اخر رقم ضمن المسلسل وهو على ملفك الرقم 78 وهدا ما ينفده الكود شيت الصف السادس ترم ثان.pdf 1 رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر مايو 13 الكاتب مشاركة قام بنشر مايو 13 اول صفحة ظاهر حرف م في 3 صفوف لكن الصفحة التانية والثالثة ظاهر صفين حرف م رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر مايو 13 الكاتب مشاركة قام بنشر مايو 13 تم حل المشكلة شكرا اخ @محمد هشام. بارك الله فيك وزادك من فضله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان