طلب خاص بمعاينة الطباعة

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

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

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

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

Sub print_benood()
On Error Resume Next
program.Select

'hiden_ma3ashat_sabqa
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
        program.Range("a16:l42").Select
        program.PageSetup.PrintArea = "$a$16:$l$42"
                      ActiveWindow.SelectedSheets.PrintPreview
 Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",FALSE)"
 'unhiden_ma3ashat_sabqa

Range("h41").Select
End Sub

 

 

فارجوا من الخبراااء لو هناك طريقة افضل ان يخبرنى احد 

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

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

؟