Board logo

標題: 列印範圍問題 請幫忙 [打印本頁]
作者: tpwhdavid    時間: 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
錯誤
請幫忙
謝了
作者: GBKEE    時間: 2013-10-30 13:10

回復 1# tpwhdavid
  1. ActiveSheet.PageSetup.PrintArea = RNG.address
複製代碼
作者: tpwhdavid    時間: 2013-10-30 17:56

謝謝版大  對了   謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)