مشكلة في عرض الطباعة

[Akram Galal]

السادة الأفاضل أعضاء المنتدى

لدي ملف به زر عرض طباعة

عند الضغط علي الزر يظهر عرض الطباعة ولكن لا تظهر الأيقونات الموجودة أعلاه

وشكرا

 

طباعة.rar

[عبدالسلام ابوالعوافي]

ActiveWorkbook.Application.DisplayFullScreen = False
ActiveWorkbook.Application.DisplayFormulaBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"

'----------------------------------------------
ActiveWindow.SelectedSheets.PrintPreview
'--------------------------------------------------
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
ActiveWorkbook.Application.DisplayFullScreen = True
ActiveWorkbook.Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayHeadings = False
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = False
End With