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

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


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





طباعه اعمده وصفوف يتم تحديدها

السلام عليكم ورحمه الله الساده الأساتذه الأعزاء تحيه مباركه عندي ورقه عمل بها العديد من الأعمده واريد ان اقوم بتحديد اعم ..


موضوع مغلق


23-05-2021 08:45 صباحا
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 

السلام عليكم ورحمه الله
الساده الأساتذه الأعزاء
تحيه مباركه
عندي ورقه عمل بها العديد من الأعمده واريد ان اقوم بتحديد اعمده معينه للطباعه وهذه الأعمده يتم تحديد عدد الصفوف بها
وشكرا لكم جميعا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  حل مشكله ف الطباعه.rar   تحميل rar مرات التحميل :(5)
الحجم :(10.267) KB



أفضل إجابة مقدمة من محمود ابو الدهب وهي:
تفضل اخى الكريم الكود التالى يقوم باخفاء الاعمدة التى حدتها ويطبع حتى اخر صف به بيانات في العمود b
Sub abodahab_print()
Dim lr     As Long

Application.ScreenUpdating = False

    With ActiveSheet
        .Columns("D:G").EntireColumn.Hidden = True
        .Columns("O:Q").EntireColumn.Hidden = True
        lr = .Cells(Rows.Count, 2).End(xlUp).Row
        
            .Range("b6:r" & lr).Select
            .PageSetup.PrintArea = "$b$6:$r" & lr
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = False
            .PageSetup.Orientation = xlLandscape
            .PrintOut
        
        .Cells.EntireColumn.Hidden = False
        .Cells.EntireRow.Hidden = False
    End With
Application.ScreenUpdating = True
End Sub


ومرفق ملف العمل به كود الطباعة مربوط بزر للطباعة
عرض الإجابة




24-05-2021 01:43 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif طباعه اعمده وصفوف يتم تحديدها
تفضل اخى الكريم الكود التالى يقوم باخفاء الاعمدة التى حدتها ويطبع حتى اخر صف به بيانات في العمود b
Sub abodahab_print()
Dim lr     As Long

Application.ScreenUpdating = False

    With ActiveSheet
        .Columns("D:G").EntireColumn.Hidden = True
        .Columns("O:Q").EntireColumn.Hidden = True
        lr = .Cells(Rows.Count, 2).End(xlUp).Row
        
            .Range("b6:r" & lr).Select
            .PageSetup.PrintArea = "$b$6:$r" & lr
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = False
            .PageSetup.Orientation = xlLandscape
            .PrintOut
        
        .Cells.EntireColumn.Hidden = False
        .Cells.EntireRow.Hidden = False
    End With
Application.ScreenUpdating = True
End Sub


ومرفق ملف العمل به كود الطباعة مربوط بزر للطباعة
 
 
  حل مشكله ف الطباعه.rar   تحميل rar مرات التحميل :(20)
الحجم :(17.816) KB

توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

24-05-2021 02:52 مساء
مشاهدة مشاركة منفردة [2]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif طباعه اعمده وصفوف يتم تحديدها
كود روعه من استاذ ابو الدهب يا لذيذ يا رايق بس بعد اذنك زودت حتتين بحيث يعملي PRINTPRVIEW قبل الطباعه
Sub abodahab_print()
Dim l As Long
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    With ActiveSheet
        .Columns("D:G").EntireColumn.Hidden = True
        .Columns("O:Q").EntireColumn.Hidden = True
        lr = .Cells(Rows.Count, 2).End(xlUp).Row
        
            .Range("b6:r" & lr).Select
            .PageSetup.PrintArea = "$b$6:$r" & lr
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = False
            .PageSetup.Orientation = xlLandscape
            .PrintPreview
        
       .Columns("D:G").EntireColumn.Hidden = False
        .Columns("O:Q").EntireColumn.Hidden = False
    End With
Application.ScreenUpdating = True
   Application.DisplayAlerts = True
    Application.EnableEvents = True
       Application.Calculation = xlCalculationAutomatic
End Sub
 
Sub abodahab_print() Dim l As Long Application.ScreenUpdating = False     Application.Displaya l e r ts = False     Application.EnableEvents = False     Application.Calculation = xlCalculationManual     With ActiveSheet         .Columns("D:G").EntireColumn.Hidden = True         .Columns("O:Q").EntireColumn.Hidden = True         lr = .Cells(Rows.Count, 2).End(xlUp).Row                      .Range("b6:r" & lr).Select             .PageSetup.PrintArea = "$b$6:$r" & lr             .PageSetup.CenterHorizontally = True             .PageSetup.CenterVertically = False             .PageSetup.Orientation = xlLandscape             .PrintPreview                 .Columns("D:G").EntireColumn.Hidden = False         .Columns("O:Q").EntireColumn.Hidden = False     End With Application.ScreenUpdating = True    Application.Displaya l e r ts = True     Application.EnableEvents = True        Application.Calculation = xlCalculationAutomatic End Sub
 

24-05-2021 03:07 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif طباعه اعمده وصفوف يتم تحديدها
تحياتى والحمد لله على تمام طلبك وكل عام وانتم بخير
 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب



الكلمات الدلالية
طباعه ، اعمده ، وصفوف ، تحديدها ،


 










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

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