[엑셀]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