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 جزاك الله خيرا على ردودك أين أضع الكودين؟ ممكن أخي الكريم دمجه في الملف المرفق وتجربته جزاك الله خيرا
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان