[發問] 如何得到當前列印範圍頁數?

naruto018

如何得到當前列印範圍頁數?
我想要在VBA中間加入判斷當前列印範圍頁數是否超過2頁

1. Public Sub 列印()
   
2. With Worksheets("1111")
   
3. .PageSetup.PrintArea = .Range(Cells(1, 1), Cells(Rows.Count, 9)).Address '設定列印範圍
   
4. 
   
5. '<---加入判斷頁面是否超過2頁
   
6. MyPage = 1 '<---獲得當前列印範圍頁數
   
7. If MyPage > 2 Then '<---判斷當前列印範圍頁數
   
8. MsgBox "頁面超過2頁，請重新調整頁面，再列印"
   
9. Else
   
10. .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
    
11. End If
    
12. End With
    
13. End Sub

複製代碼

准提部林

HP = ActiveSheet.HPageBreaks.Count + 1 '縱向頁數
VP = ActiveSheet.VPageBreaks.Count + 1 '橫向頁數
PG = HP * VP '總頁數