如何根据单元格值打印某些页面

Question

我有一个包含3个工作表的工作簿，并且我在第一个工作表上放置了分页符，以使文档看起来更好。第一个工作表长达6页。我只想根据单元格E54中的值打印页面。如果＆＃34; E54＆＃34; = 0则打印第1,5和6页。如果＆＃34; E54＆＃34;大于0且小于8然后打印第1,2,5和6页。如果＆＃34; E54＆＃34;大于7且小于15然后打印页1,2,3,5和6.如果＆＃34; E54＆＃34;大于14然后打印所有页面。

以下是我目前用于打印所有工作表的宏。

Sub Print_All_Pages()
'
' Run Macros to hide blank rows then print all three worksheets
'
Sheet2.Hide_Blank_Rows2
Sheet3.Hide_Blank_Rows3
'
    Sheets(Array("Inspection Report", "Device List", "Deficiencies")).Select
    Sheets("Inspection Report").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False


End Sub

因为我根据单元格的值隐藏行＆＃34; E54＆＃34;它仍然只打印每页顶部重复行的页面。