تعديل الكود الخاص بالطباعة

[محمود أبوالدهب]

الشرح للمطلوب بالفديو 

واختصار انا عامل اخفاء لشريط الادوات ولما بيعمل برنت برفيو بيظهره تانى علشان المستخدم يدخل اعدادات الورقة الى حببها وبعد الطباعه بيخفية تانى

بيجيلي شاشة سودة اثناء البرنت برفيو بتروح لما اضغط عى ايقونة اعدادات الطباعة فما هو السبب 

شرح بالفديو

 

الكود هو 

Sub print_benood()
On Error Resume Next
Application.ScreenUpdating = False
program.Select

'hiden_ma3ashat_sabqa
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"

        program.Range("a16:l42").Select
        program.PageSetup.PrintArea = "$a$16:$l$42"
                    Application.ScreenUpdating = True
                      ActiveWindow.SelectedSheets.PrintPreview

Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",FALSE)"
 'unhiden_ma3ashat_sabqa
Application.ScreenUpdating = True
Range("h41").Select

End Sub

شكرا للمساعده 

 

[محمود أبوالدهب]

ارجوا فقط ان اعرف هل من حل ام هذا هو الصحيح 

وشكرا جزيلا

[محمود أبوالدهب]

ارجوا فقط ان اعرف هل من حل ام الخطأ ليس من الكود 

وشكرا جزيلا

[خالد الشاعر]

ارفق ملف لمساعدة على حل المشكلة

[محمود أبوالدهب]

12 دقائق مضت, خالد الشاعر said:

ارفق ملف لمساعدة على حل المشكلة

تفضل اخى ملف مرفق

01.rar

تم تعديل يوليو 3, 2017 بواسطه محمود أبوالدهب

[خالد الشاعر]

انا جربت على اوفس 2007 ما فيش مشكلة

[محمود أبوالدهب]

طيب ممكن تجرب على اوفس 64 بت كدا نشوف ممكن تكون منه 

[محمود أبوالدهب]

؟