تفعيل زر الطباعه والورقه مخفيه

[طاهر محمد]

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

الرجاء تفعيل زر الطباعه والورقه sheet2  مخفيه

ولكم جزيل الشكر

المصنف1.zip

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

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

أخي الكريم، انظر للمرفق لعل فيه ما تريد (حسب ما فهمت)...

بن علية

المصنف1.zip

[طاهر محمد]

استاذي العزيز

قمت بتجربة الملف ولم يفتح معي وظهرت اللرساله كما بالصوره المرفقه

[أبوعيد]

جرب المرفق

المصنف2.rar

[طاهر محمد]

اخي العزيز ابو عيد

يوجد مشكله في الطباعه حيث تظهر الرساله التاليه

[ياسر خليل أبو البراء]

أخي الكريم يمكنك النقر على كلمة Debug ونسخ السطر الذي يظهر باللون الأصفر

جربت الملف ويعمل بشكل جيد ..

اذكر نسخة الأوفيس التي تعمل عليها؟

 

[طاهر محمد]

شكرا اخي العزيز ا/ياسر

اوفيس 2003

الطباعه لاتعمل

السطر الذي به المشكله

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

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub PrintIt()
    Application.ScreenUpdating = False
        With Sheets("Sheet1")
            .Visible = True
                .Activate
                .PrintOut
            .Visible = False
        End With
    Application.ScreenUpdating = True
End Sub

 

[طاهر محمد]

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

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