المساعدة في طباعة كل البيانات لجميع الأشخاص مرة واحدة

[mohsen mohamed]

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام

أرجو من سيادتكم معرفة كيف أطبع كل بيانات الموظفين بالقائمة المنسدلة بكود الشركة بضغطة واحدة وليس فرد فرد بل الكل مرة واحدة 

ولسيادتكم جزيل الشكر

كيفية طباعة الكل بضغطة.xlsmكيفية طباعة الكل بضغطة.xlsm

تم تعديل بالامس في 16:09 بواسطه mohsen mohamed

[mohsen mohamed]

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

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

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

[عبدالله بشير عبدالله]

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

تم انشاء كود الطباعة والمعاينة 

اتمنى ان  تجد في الخل طلبك

لك وافر الاحترام

Sub Print_All_Employees()
    Dim ws As Worksheet
    Dim cell As Range
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("إداريين")
    
    Set rng = ws.Range("C3:C137")
    
    Application.ScreenUpdating = False
    
    For Each cell In rng
        If cell.Value <> "" Then
            ws.Range("CQ6").Value = cell.Value
            
            ws.PageSetup.PrintArea = "CP5:CY47"
            
            ws.PrintOut
        End If
    Next cell
    ws.Range("CQ6").Value = rng.Cells(1, 1).Value
    Application.ScreenUpdating = True
    
    MsgBox "تمت طباعة جميع الموظفين بنجاح.", vbInformation
End Sub

طباعة الكل بضغطة.xlsm