كيف أطبع طبع متعدد

[mohsen mohamed]

السادة الأساتذة الكرام/

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

أرجو من سيادتكم طريقة لعمل زر طباعة متعددة حسب نطاق معين من العاملين ، مرفق الجدول وبه طباعة للكل بضغطة واحدة وزر لطباعة كل واحد على حدة.

ولسيادتكم جزيل الشكر والامتنان.مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsmمرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

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

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

كود طباعة الكل

Sub PrintAll()
    Dim ws As Worksheet
    Dim dropdownCell As Range
    Dim validationFormula As String
    Dim optionsRange As Range
    Dim cell As Range
    Dim originalValue As Variant
    Dim counter As Integer
    
    Set ws = ActiveSheet
    Set dropdownCell = ws.Range("D4")
    originalValue = dropdownCell.Value
    
    If dropdownCell.Validation.Type = 3 Then
        validationFormula = dropdownCell.Validation.Formula1
        
        If Left(validationFormula, 1) = "=" Then
            validationFormula = Mid(validationFormula, 2)
        End If
        
        Set optionsRange = ws.Range(validationFormula)
        counter = 0
        
        For Each cell In optionsRange
            If cell.Value <> "" Then
                dropdownCell.Value = cell.Value
                
                Application.Calculate
                DoEvents
                
                ws.PageSetup.PrintArea = "C3:J54"
                ws.PrintOut
                
                counter = counter + 1
                Application.StatusBar = "تم طباعة " & counter & " من " & optionsRange.Cells.Count
            End If
        Next cell
        
        dropdownCell.Value = originalValue
        Application.StatusBar = ""
        
        MsgBox "تمت طباعة " & counter & " عنصر بنجاح!", vbInformation
    Else
    End If
End Sub

مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

[mohsen mohamed]

أخي العزيز عبد الله بشير 

جزاك الله خيرا وبارك الله فيك

كنت أبغي طباعة مرتب عدد 4 أو5 أشخاص مثلا دفعة واحدة ويكون من الخلية رقم إلى الخلية رقم  بالعمود A المتصلة بالقائمة المنسدلة بالخلية D4.

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

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

 

عذرا لم انتبه ان قي طلبك طباعة متعددة

الطريقة الاولى  زر print all اكتب كود الشركة بداية الطباعة  في الخلية P2 ونهاية الطباعة في Q2

الطريقة السابقة لطباعة الارقام المتسلسلة وراء بعضها

الطريقة الثانية عن طريق فورم  زر طباعة خسب الاختيار وهي تغنيك عن كل الازرار  وعن الطريقة الاولى حيث يمكن

الطباعة لموظف واخد  او الطباعة للكل او الطباعة المتعددة خسب الاختيار  سواء الارقام متصلة ام منفصلة

اختر ما تراه متاسب لطلبك

 

مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm

تم تعديل نوفمبر 22 بواسطه عبدالله بشير عبدالله

[mohsen mohamed]

شكرا جزيلا أخي عبد الله بشير ربنا يبارك في حضرتك ويزيدك علما

[hafez81]

good