한국어

tc_backup


Sub 머리글_바꾸기()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
'Sheets("목록").Select
Range("A1").Select

For i = 1 To SheetCount
    Worksheets(i).Select
    
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$12:$13"
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$W$68"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = "&9AAAA 프로젝트"
        .LeftFooter = "&9&F/&A"
        .CenterFooter = ""
        .RightFooter = "&9&P/&N"
        .LeftMargin = Application.InchesToPoints(0.236220472440945)
        .RightMargin = Application.InchesToPoints(0.236220472440945)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
        End With
    Application.PrintCommunication = True
    
Next i
End Sub

조회 수 :
14426
등록일 :
2013.01.22
22:33:56 (*.44.198.26)
엮인글 :
https://www.rain9.com/xe/tc_backup/8828/30d/trackback
게시글 주소 :
https://www.rain9.com/xe/tc_backup/8828
List of Articles
번호 제목 글쓴이 날짜 조회 수
240 iOS 쉘에서 한글 디렉터리 접근 방법 엔신 2013-04-26 19955
239 WideCap을 통한 Proxy 이용 file 엔신 2013-04-20 39872
238 KB카드 it 카드 듀얼페이먼트 결제 방식 선택 엔신 2013-04-17 29715
237 화면 주사율 고정시켜주는 RefreshLock 엔신 2013-04-01 29605
236 charset configuration 엔신 2013-04-01 15683
235 [APC3.0] AhnLab Policy Center 3.0 관련 모듈 목록 엔신 2013-03-21 64269
234 [VBA] 파워포인트 그림 리사이즈, 위치 고정 엔신 2013-02-21 52079
233 thinkpad 최대절전모드 안될 때 엔신 2013-02-19 37326
» [VBA] 모든 시트 머리글 바꾸기 엔신 2013-01-22 14426
231 [VBA] 엑셀 시트명 가져오기 엔신 2013-01-22 174896
230 freeware hex editor 엔신 2013-01-22 60042
229 시간 동기화(ntpdate) & 한국 시각으로 변경 엔신 2012-10-17 52487
228 대용량 txt 파일 editor - emeditor 엔신 2012-07-24 20257
227 arm tcpdump compile 엔신 2012-07-18 24823
226 arm cross Compiling 엔신 2012-07-18 10706
225 mipsel Cross compiling 엔신 2012-07-17 11711
224 vmware detection [1] file 엔신 2012-07-10 11564
223 ubuntu에서 pecl_http 설치하기 엔신 2012-06-11 15115
222 IIS의 버전을 구하는 방법 엔신 2012-06-11 14145
221 Download Detailed Bulletin Information 엔신 2012-06-11 36612