hicham2610 قام بنشر ديسمبر 14, 2021 قام بنشر ديسمبر 14, 2021 السلام عليكم المرجو تغيير أكواد vba في أزرار الطبع من الطبع الورقي للطابعة إلى الحفظ بصيغة Pdf وجزاكم الله خيرا progr.xlsm
علي المصري قام بنشر ديسمبر 15, 2021 قام بنشر ديسمبر 15, 2021 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= ThisWorkbook.Path & "\" & "FileNAme", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False جرب هذا الكود FileNAme اسم الملف المراد التسمية به 1
hicham2610 قام بنشر ديسمبر 15, 2021 الكاتب قام بنشر ديسمبر 15, 2021 السلام عليكم إليكم الملف في المرفقات عند الضغط على طباعة جميع الوصولات من الرئيسية (وهي بالمناسبة: 181) ثم الضغط على اضغط لإعداد الصفحات ثم الضغط على طباعة لايتم طبع جميع الوصولات وكذلك هناك عيب فقط الصفحة الأولي هي التي بها 6 وصولات بينما باقي الصفحات فقط اثنين كيف أعدل على الكود لتكون بجميع الصفحات 6 وصولات وبذلك يتم طبع كل الوصولات وجزاكم الله خيرا progr1.xlsm
علي المصري قام بنشر ديسمبر 16, 2021 قام بنشر ديسمبر 16, 2021 الكود التالي لتحديد عدد الصفوف في كل صفحة For i = 33 To 3300 Step 33 ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1) Next
hicham2610 قام بنشر ديسمبر 16, 2021 الكاتب قام بنشر ديسمبر 16, 2021 جزاك الله خيرا على ردودك أين أضع الكودين؟ ممكن أخي الكريم دمجه في الملف المرفق وتجربته جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.