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

[Al-Raadi]

السلام عليكم

 

اريد كود طباعة والغاء طباعة ورقة١، ورقة٢، ورقة ٣.

اذا كان مكتوب في ورقة١، وورقة٢، وورقة ٣. في الخليةB3 راسب او غائب يتم الغاء الطباعة واذا كان مكتوب نجاح يتم طباعة الاوراق.

 

تم تعديل يناير 5, 2023 بواسطه رعد الراعدي

[بن علية حاجي]

السلام عليكم

وأين الملف الذي تريدنا أن نعمل عليه؟

[Al-Raadi]

يا استاذ بن علية 

الملف حجمة كبير ما استطعت ارسله النت ضعيف عندي.

لو تكرمت يا استاذي بن علية  ارسال الكود حسب ماهو مطلوب.

 

تم تعديل يناير 6, 2023 بواسطه رعد الراعدي

[بن علية حاجي]

السلام عليكم

جرب الكود التالي (بتحفظ):

Sub Conditional_Print()
    For I = 1 To 3
    With Worksheets("ورقة" & I)
    .Activate
    If .Cells(3, 2) = "راسب" Or .Cells(3, 2) = "غائب" Then GoTo 1
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
1   Next
    Worksheets("ورقة1").Activate
End Sub

 

[Al-Raadi]

الكود لا يعمل حسب ما هو مطلوب

[بن علية حاجي]

السلام عليكم

أكيد أن هناك خلل، إما في الكود (مع العلم أني جربته في ملف أنشأته كنموذج واشتغل جيدا) ويمكن أن تكون فيه (الكود) المصطلحات -الكلمات- التي هي باللغة العربية لا تظهر عندك في الكود بالشكل الصحيح، وإما الخلل في ملفك ربما يكون في تسمية الأوراق (ورقة1، ورقة2، ورقة3 المعنية بالطباعة) أو في المصطلحات "راسب" أو "غائب" لعلك كتبتها بمسافات (في أولها أو في آخرها)... والأحسن أن ترفق ملفك (مع القليل جدا من البيانات ودون البيانات الشخصية...).

[Al-Raadi]

طباعة وعدم طباعة.xlsm

للرفع