[엑셀]VBA 프린터 출력 영역 선택하기



Sub 출력영역()


Dim r As Long     'r 변수 선언

Dim er As Long     'er 변수 선언


Range("a1").Select     'A1셀을 선택

ActiveCell.CurrentRegion.Select     'A1셀과 연속된 데이터의 영역을 선택

With Selection     '선택구역내에서

    r = .Cells(1).Row     '첫번째 열의 값을 r에 저장

    er = .Cells(.Cells.Count).Row     '마지막 열의 값을 er에 저장

End With

ActiveSheet.PageSetup.PrintArea = "a1:q" & er    'A1셀부터 q열 마지막 행까지 출력영역 선택

Range("a1").Select



End Sub