طباعة

[mmtronic]

الاخوة الافاضل

احتاج مساعدتكم فى

اريد كود لعدم طبع هذا الـ sheet المرفق اذا تحقق شرط عدم وجود اى شىء فى الـ range من B6 : E14

test.rar

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

السلام عليكم

تم اضافة الشرط المطلوب في الكود

Sub Macro1()

On Error Resume Next

If Application.WorksheetFunction.CountA(Range("B6:E14")) = 0 Then MsgBox "خلايا فارغة": GoTo 1

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

On Error GoTo 0

1 End Sub

test.rar

تم تعديل أغسطس 28, 2009 بواسطه خبور خير

[cat101]

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

[سالم شباني]

السلام عليكم

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

[mmtronic]

الف شكر و كل عام و انت بخير - هو المطلوب بالضبط