엑셀 VBA 출력미리보기실행, 가운데정렬, 용지가로, 1개 페이지에 맞춤, 페이지 나누기 미리보기로 전환, 보기를 기본으로 전환

Sub All_Setting_Print() Dim lngR    As Long Dim rngPrt  As Range lngR = Range("aw1").Value Set rngPrt = Range("DA1:DG" & lngR)    rngPrt.Select    With ActiveSheet.PageSetup             .PrintArea = rngPrt.Address                 '설정한 영역을 잡음             .CenterHorizontally = True             .CenterVertically = True                 '가로세로 모두 가운데 정렬             .Orientation = xlLandscape                 '용지 가로로             '.Orientation = xlPortrait                 '용지 세로로             .PaperSize = xlPaperA4             .FitToPagesWide = 1             .FitToPagesTall = 1                 '1은 1개 페이지 맞춤                 'False는 자동 맞춤     End With     ActiveWindow.View= xlPageBreakPreview         '보기를 페이지 나누기 미리보기로 전환     rngPrt.PrintOut From:=1, To:=1, Preview:=True         '출력 미리보기 창 실행     ActiveWindow.View = xlNormalView         '보기를 기본으로 다시 전환     Range("da1").Select End Sub