السلام عليكم ورحمة الله وبركاته
العضاء الكرام توجهنى مشكلة انى خافي شريط القوائم الخاص باكسيل عندى وعليه عندى بالبرنامج ايقونات للطباعة بمجرد الضغط عليها تقوم بظهار معاينة للطباعة واعدل من لاعدادات ما اريد ثم اطبع ولكن بعد عمل الاخفاء لشريط القوائم اصبح عندى ايضا شريط القائمة الخاصةبالمعاينة مخفي فهل من طريقة لاظهارة بالمعاينة للطباعة فقط واخفائه بالصفحات
قمت باضافة لكود الطباعة وادى الغرض ولكن بها مشكلة وهي ان الصفة تكون سودء وبمجرد الضغط على تعديل اعدادات الصفحة تظهر عادى والكود هو
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
فارجوا من الخبراااء لو هناك طريقة افضل ان يخبرنى احد