將Excel中的打印區域設置為相對參考

Question

我想創建一個循環，在工作簿上打印所選范圍。 我選擇了一個相對范圍，該范圍存儲為“ Arge”。

我想將打印區域設置為所選范圍。

Range("A1").Select
ActiveCell.Offset(1, 0).Range("A1:P37").Select
Dim Arge As Range
Set Arge = Selection             'PROBLEM
 'do loop and other code

With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = Arge            'PROBLEM with Arge

Answer 1

兩件事情

1. 避免使用.Select 。 您可能想看看這個
2. .PrintArea采用字符串（范圍地址）而不是范圍本身。 您可能想看看這個

代碼 ：

Sub Sample()
    Dim ws As Worksheet
    Dim Arge As Range

    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set Arge = ws.Range("A1:P37")

    With ws.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .PrintArea = Arge.Address
    End With
End Sub

注意事項 ：

如果確實需要使用Selection對象，請確保它是有效范圍。 例如

'~~> Check if what the user selected is a valid range
If TypeName(Selection) <> "Range" Then
    MsgBox "Select a range first."
    Exit Sub
Else
    Set Arge = Selection
End If