أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود طباعة مطاطي مع المحافظة على تنسيق الورقة

السلام عليكم ورحمة الله وبركاته : هل من الممكن إيجاد كود طباعة مطاطي يعمل على إخفاء الصفوف الفارغة وفي نفس الوقت يحافظ ع ..



09-12-2020 08:23 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته :
هل من الممكن إيجاد كود طباعة مطاطي يعمل على إخفاء الصفوف الفارغة وفي نفس الوقت يحافظ على شكل الورقة في التنسيق بمعنى أن تتم معالجة الصفوف الممتلئة لتغطي مكان الصفوف التي تم إخفاءها أثناء الطباعة لتصبح الورقة في الأخير خالية من الصفوف الفارغة وفي نفس الوقت يتم ضبط حجم الصفوف الأخرى في الارتفاع لتظهر الورقة بالشكل المنسق ارجوا أن أكون وفقت في توصيل السؤال بالشكل الصحيح
هذا هو الكود لكن كيف اجعل الصفوف تمتد لتملأ بقية الورقة للأسف بحث يكون شكل الورقة أفضل من أنها تكون فارغة بالإسفل:

Sub print()
Dim LatR As Long
LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With ActiveSheet
    .PageSetup.PrintArea = "b2:v" & LatR
    .PrintOut
End With
End Sub

وهل يمكن دمج هذا الكود مع الكود السابق:

Sub  print()
​Application.ScreenUpdating = False
Range("J1").Select
ActiveCell = 1
Do
ActiveWindow.SelectedSheets.PrintOut
ActiveCell = ActiveCell + 1
Loop Until ActiveCell.Value > Range("AA2").Value
Range("J1").Select
Application.ScreenUpdating = True
End Sub

 
 
 
 
  طبـــــاعة مطاطي.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(119.371) KB


10-12-2020 06:48 صباحا
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود طباعة مطاطي مع المحافظة على تنسيق الورقة
جرب هذا الكود

Sub Hide_rows()
Dim my_max%
show_rows
my_max = Application.Max(Range("B1:B66")) + 8
If my_max < 66 Then
Range(Cells(my_max + 1, 1), Cells(66, 1)).EntireRow.Hidden = True
End If
End Sub
'+++++++++++++++++++++
Sub show_rows()
Range("B9:B66").EntireRow.Hidden = False
End Sub


10-12-2020 11:14 صباحا
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif كود طباعة مطاطي مع المحافظة على تنسيق الورقة
استاذنا الاستاذ سليم بارك الله لك لكن أريد أن يتم تمديد باقي الصفوف لتغطي الفراغ أسفل الورقة وهل يمكن دمج أمر الطباعة مع الكود لتصبح عملية اوتوماتيكية لا تحتاج لإخفاء الصفوف الزائدة ثم الذهاب لأمر الطباعة مع ملاحظة أن الصفحات متغيرة البيانات بمعنى أن هناك صفحات قد تحتوي على 58 اسم وصفحات أخرى أقل من ذلك قد تصل إلى 40 اسم في الصفحة الواحدة.
 
 
  2020-12-10_111012.jpg   تحميل jpg 2020-12-10_111012.jpg مرات التحميل :(7)
الحجم :(130.585) KB
  شكل الصفحة عند إظهار الصفوف.jpg   تحميل jpg شكل الصفحة عند إظهار الصفوف.jpg مرات التحميل :(5)
الحجم :(123.293) KB
 





الكلمات الدلالية
طباعة ، مطاطي ، المحافظة ، تنسيق ، الورقة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:06 مساء