- 帖子
- 12
- 主題
- 2
- 精華
- 0
- 積分
- 19
- 點名
- 0
- 作業系統
- windower 7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-10-24
- 最後登錄
- 2020-1-30
|
列印範圍問題 請幫忙
Sub print123() ' 選取列印
Dim RNG As Range, address As String
Set RNG = Application.InputBox("請輸入 列印範圍", "範圍", address, , , , , 8)
ActiveSheet.PageSetup.PrintArea = RNG
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
錯誤
請幫忙
謝了 |
|
發表於 2013-10-30 12:12
| 
