- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2020-5-17
|
如何得到當前列印範圍頁數?
我想要在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
|
|
發表於 2017-4-5 10:56
| 
發表於 2017-4-9 10:47
| 