طلب تعديل في كود طباعة

[احمد الدقاق]

السلام عليكم

سعيد بالانضمام اليكم، وأشكركم على المجهودات الجبارة التي تبذلونها في هذا المنتدى.

أطلب منكم مساعدتي على تعديل هذا الكود كي يكون قادرا على إلغاء الطباعة في حالة ما أدخلت الى رقم البداية ورقم النهاية في الخلية G33 حروفا أو رموزا أو إذا لم أدخل شيئا

وكذلك أريد أن يتم إلغاء الطباعة عند الضغط على الزر ANNULER وجازاكم الله خيرا.

Private Sub CommandButton1_Click()

On Error Resume Next

Range("BB1") = InputBox("رقم البداية")

Range("BB2") = InputBox("رقم النهاية")

For CELP = Range("BB1") To Range("BB2")

Range("G33") = CELP


'   ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Activewindow.SelectedSheets.PrintOut Copies:=1

Next

End Sub

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

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

أخي الكريم، جرب الكود التالي:

Private Sub CommandButton1_Click()

On Error Resume Next

Range("BB1") = InputBox("رقم البداية")

Range("BB2") = InputBox("رقم النهاية")

If Not IsNumeric(Range("BB1")) Or Not IsNumeric(Range("BB2")) Or Range("BB1") > Range("BB2") Then GoTo 1

If MsgBox("تأكيد الطباعة", vbYesNo, "طلب التأكيد") = vbNo Then GoTo 1

For CELP = Range("BB1") To Range("BB2")

Range("G33") = CELP '

'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Activewindow.SelectedSheets.PrintOut Copies:=1

Next

1: Range("BB1:BB3") = Empty

End Sub

أخوك بن علية

تم تعديل ديسمبر 24, 2012 بواسطه بن علية حاجي

[احمد الدقاق]

أشكرك أخي الكريم بن علية على ردك السريع والمفيد. لقد جربته وهو شغال. جزاكم الله خيرا.

[الـعيدروس]

جزاك الله خير أستاذ بن عليه

تقبل مروري