hicham2610 قام بنشر ديسمبر 14, 2021 مشاركة قام بنشر ديسمبر 14, 2021 السلام عليكم المرجو تغيير أكواد vba في أزرار الطبع من الطبع الورقي للطابعة إلى الحفظ بصيغة Pdf وجزاكم الله خيرا progr.xlsm رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 15, 2021 مشاركة قام بنشر ديسمبر 15, 2021 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= ThisWorkbook.Path & "\" & "FileNAme", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False جرب هذا الكود FileNAme اسم الملف المراد التسمية به 1 رابط هذا التعليق شارك More sharing options...
hicham2610 قام بنشر ديسمبر 15, 2021 الكاتب مشاركة قام بنشر ديسمبر 15, 2021 السلام عليكم إليكم الملف في المرفقات عند الضغط على طباعة جميع الوصولات من الرئيسية (وهي بالمناسبة: 181) ثم الضغط على اضغط لإعداد الصفحات ثم الضغط على طباعة لايتم طبع جميع الوصولات وكذلك هناك عيب فقط الصفحة الأولي هي التي بها 6 وصولات بينما باقي الصفحات فقط اثنين كيف أعدل على الكود لتكون بجميع الصفحات 6 وصولات وبذلك يتم طبع كل الوصولات وجزاكم الله خيرا progr1.xlsm رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 16, 2021 مشاركة قام بنشر ديسمبر 16, 2021 الكود التالي لتحديد عدد الصفوف في كل صفحة For i = 33 To 3300 Step 33 ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1) Next رابط هذا التعليق شارك More sharing options...
hicham2610 قام بنشر ديسمبر 16, 2021 الكاتب مشاركة قام بنشر ديسمبر 16, 2021 جزاك الله خيرا على ردودك أين أضع الكودين؟ ممكن أخي الكريم دمجه في الملف المرفق وتجربته جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 16, 2021 مشاركة قام بنشر ديسمبر 16, 2021 لم استطع فهم تسلسل الكود رابط هذا التعليق شارك 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.