Ali994m قام بنشر يوليو 11, 2020 مشاركة قام بنشر يوليو 11, 2020 السلام عليكم ترجى المساعدة في تعديل كود الترحيل الىpdf ليتم تصدير الصفحة الأولى فقط وجزاكم الله كل خير Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\Settle Plate\" & Range("e9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox " Export To PDF Done" End Sub 1050معدل.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر يوليو 11, 2020 أفضل إجابة مشاركة قام بنشر يوليو 11, 2020 غير فقط activesheet الى نطاق الصفحة الاولى ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard لتصبح ActiveSheet.Range("A1:i33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard 3 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 11, 2020 مشاركة قام بنشر يوليو 11, 2020 Ali994m أين الضغط على الإعجاب لهذه الإجابة الممتازة للأستاذ الرائد ؟!!!💙 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.