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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-4-5 10:56 | 顯示全部帖子

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

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

複製代碼

靜思自在 : 愛不是要求對方，而是要由自身的付出。