كود طباعة

[alaaelhadary]

الاخوة الاعزاء 

الرجاء الافادة في المطلوب مرفق شيت اكسيل يحتوي على قايمة منسدلة يتم اختيار اسم العميل منها للحصول على بيانته ثم نقوم بالطباعة 

المطلوب كود يقوم بطباعة جميع الاشعارات بدون اختيار عميل عميل 

وشكرا للجميع 

ايصال استلام حافز الربع الاول 2021 - Copy.xls

[سليم حاصبيا]

جرب هذا الماكرو

1- الماكرو يظهر معاينة قبل الطباعة

من اجل الطياعة مباشرة استيدل السطر   Sh.PrintPreview

بالسطر  Sh.PrintOut

Option Explicit
Sub Print_all()
Dim Sh As Worksheet
Dim k%
Application.EnableEvents = False
Set Sh = Sheets("الربع")
Sh.PageSetup.PrintArea = "$B$2:$L$21"
For k = 26 To 81
      If Sh.Range("C" & k) <> "" Then
        Sh.Range("D5") = Sh.Range("C" & k)
         Sh.PrintPreview
        'Sh.PrintOut
       End If
       
 Next k
 Sh.PageSetup.PrintArea = ""
 Application.EnableEvents = True
End Sub

الملف مرفق

Alaa.xlsm

[أبو عبد الله _]

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