كيفية ادراج زر طباعة

[حسام عبدالمحسن]

السلام عليكم ورحمة الله

 

اريد كيفية عمل زر طباعه لمجموعه خلايا محددة فى روقة اكسيل

وجزاكم الله كل خير

[يحيى حسين]

أخ الحبيب لعمل ذلك يجب أولا تحديد نطاق هذه الخلايا و تعريفه من ضمن منطقة الطباعة 

PrintArea

و الكود التالي سيقوم بتحديد منطقة طباعة من العامود A و لغاية العامود C

Sub PrintMySheets()
Dim ws As Worksheet
Dim LR As Long

Set ws = ActiveSheet 'قم بتغييرها حسب اسم الشيت عندك
LR = ws.Range("A" & Rows.Count).End(xlUp).Row

With ws
    .PageSetup.PrintArea = "A1:C" & LR
    .PrintOut
End With
End Sub

و لربطها بزر طباعة 

 

من تاب إدراج Insert 

قم بإدراج أي شكل موجود عندك 

و من ثم رايت كليك على الشكل بعد إدراجه و إختر 

assign MAcro 

و اختر اسم الكود اعلاه

[حسام عبدالمحسن]

الاستاذ الكريم/يحي حسين

اشكرك كثيرا تمت تجربة الكود والحمد لله يعمل جيدا

جزاك الله خيرا وجعل هذة العمال فى ميزان حساناتك