رسالة خطاء في طباعة ملف ميكروا

[خليل القيسي]

من فضلكم الزملاء الافاضل انا غيرة الطابعة والجهاز وعندما اردت الطباعة تظهر رسالة خطاء في الميكرو 

ارجوا من حضراتكم تشغيل الملف المرسل واعادة ارسالة مرة اخر لو سمحتوا 

ضروري من فضلكم دي تخص الكتاب ومطلوب الطباعة اليوم 

ش حمادة 2 و عبدالله.xlsm ش عمرو ش محمد مختار -ياسمين بدوي.xlsm

[خليل القيسي]

 

دي الرسايل اللي بتيجي اثناء فتح الملف 

 

 

[محمد هشام.]

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

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

 أغلق الملف ثم انقر بزر الماوس الأيمن على  خصائص <------ إلغاء الحظر (Unblock)
أعد فتح الملف وحاول تشغيل الماكرو التالي 

Sub OECUE1()
    Dim WS As Worksheet
    Dim début As Integer, fin As Integer
    
    Set WS = Sheets("haneen")
    
    If Not IsNumeric(WS.[H2].Value) Or Not IsNumeric(WS.[U2].Value) Then Exit Sub
    début = WS.[H2].Value: fin = WS.[U2].Value
    
    If début < 1 Or fin < 1 Or début > fin Then Exit Sub
    
    If MsgBox("هل ترغب في تنفيذ الطباعة؟", vbYesNo + vbExclamation, "التأكيد") = vbNo Then Exit Sub
    
    Application.ScreenUpdating = False
    Do While début <= fin
        WS.PrintOut Copies:=1, Collate:=True
        If début < fin Then WS.[H2].Value = début + 1
        début = début + 1
    Loop
    Application.ScreenUpdating = True
End Sub

 

الطباعة.rar

تم تعديل يناير 29 بواسطه محمد هشام.