mohmod zedan قام بنشر April 26 مشاركة قام بنشر April 26 المطلوب تغيير اسم حفظ الملف PDF حسب تغيير محتوى خليه F3 كود.xlsb رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر April 26 مشاركة قام بنشر April 26 السلام عليكم ورحمة الله وبركاته وبها نبدأ عدل السطر الى sNewFilePath = ThisWorkbook.Path & "\" & Range("F3").text & ".pdf" 2 رابط هذا التعليق شارك More sharing options...
mohmod zedan قام بنشر April 26 الكاتب مشاركة قام بنشر April 26 (معدل) خطأ تم تعديل April 26 بواسطه mohmod zedan رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر April 26 مشاركة قام بنشر April 26 جرب هدا Dim sFile As String sFile = Range("F3").Value sNewFilePath = ThisWorkbook.Path & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNewFilePath & sFile & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False مجرد تخمين ربما يفيدك Sub General() Dim LatR As Long: Dim sFile As String Set WS = ActiveSheet: sFile = [F3].Value LatR = Range("a:a").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row WS.PageSetup.PrintArea = Range("A2:AF" & LatR).Rows.SpecialCells(xlCellTypeVisible).Address WS.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 sNewFilePath = ThisWorkbook.Path & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNewFilePath & sFile & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets("النتيجة2").Select End Sub 1 رابط هذا التعليق شارك More sharing options...
mohmod zedan قام بنشر April 26 الكاتب مشاركة قام بنشر April 26 خطأ في الكود رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر April 26 مشاركة قام بنشر April 26 (معدل) ربما لو قمت بارفاق الملف سوف تكون الامور اوضح تفضل جرب Sub General() Dim LatR As Long: Dim sFile As String Set WS = ActiveSheet: sFile = [F3].Value On Error Resume Next LatR = Range("A:A").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With WS .PageSetup.PrintArea = Range("A2:AF" & LatR).Rows.SpecialCells(xlCellTypeVisible).Address .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 sNewFilePath = ThisWorkbook.Path & "\" .ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sNewFilePath & sFile & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With Sheets("النتيجة2").Select End Sub TEST PDF.xlsb تم تعديل April 26 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
mohmod zedan قام بنشر April 26 الكاتب مشاركة قام بنشر April 26 @محمد هشام. الملف مرفق بالفعل كود.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر April 26 أفضل إجابة مشاركة قام بنشر April 26 تفضل لان الخليه f3 بها تاريخ ظهر لك هذا الخطأ sNewFilePath = ThisWorkbook.Path & "\" & Replace(Range("F3").text, "/", "-") & ".pdf" 2 1 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر April 26 مشاركة قام بنشر April 26 17 دقائق مضت, mohmod zedan said: الملف مرفق بالفعل اسف اخي لم انتبه فعلا على العموم حل الاستاد حسونة سوف يلبي المطلوب بالتوفيق. 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان