返回列表下一主題上一主題發帖

列印範圍問題請幫忙

tpwhdavid

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: windower 7
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2013-10-24
最後登錄: 2020-1-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-30 12:12 | 顯示全部帖子

列印範圍問題請幫忙

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
錯誤
請幫忙
謝了