오빠두님이 올려주신 PDF변환 VBA 강좌 중 PAGE SETUP 함수 관련

VBA
작성자
탄만두
작성일
2022-05-05 23:01
조회
55

오빠두님 강의 잘 듣고 있습니다. 오빠두님과 댓글 달아주시는 회원님들께 미리 감사드립니다.

함수 사용할 때 머리글에 서식을 지정하려고하는데 (글씨체, 폰트)

오빠두님이 이와 관련하여 다른 분의 질문에 대한 답변을 아래와 같이 하셨습니다.

글꼴을 수정하시려면, PageSetup 모듈의 인수를 아래와 같이 작성해보시기 바랍니다.
"&""폰트명""&T"
' // 출력 시간이 해당 폰트로 출력됩니다.
"&""+,굵게""무단 복제를 금합니다."
' // '무단 복제를 금합니다' 라는 문구가 굵은 글꼴로 바닥글에 추가됩니다.

그런데 어느 인수에 어떻게 추가해야할지 모르겠습니다.. 부탁드립니다.

오빠두님 강좌 항상 유익하게 보고있습니다. 감사합니다 !!

 

Sub Test()

Dim LHead As String
Dim LFoot As String
LHead = "왼쪽 머리글입니다."  '>>>이 왼쪽 머리글의 서식을 지정하고 싶습니다. 굴림체, 폰트크기 10, 굵게
LFoot = "오른쪽 바닥글입니다." '>>>이 왼쪽 머리글의 서식을 지정하고 싶습니다. 굴림체, 폰트크기 10, 굵게

Page_Setup sht1, LHead, , LFoot
End Sub

 

# 강좌링크

https://www.oppadu.com/%EC%97%91%EC%85%80-pdf-%EC%9E%90%EB%8F%99-%EC%A0%80%EC%9E%A5-%ED%94%84%EB%A1%9C%EA%B7%B8%EB%9E%A8/#q1

 

 

 

 

Sub Page_Setup(WS As Worksheet, Optional LHead As String = "", Optional RHead As String = "&D / &T", _
                Optional LFoot As String = "본 페이지의 무단복제를 금합니다.", Optional RFoot As String = "&P / &N", _
                Optional eMargin As ePrintMargin = xlNarrow, _
                Optional HFit As Boolean = True, Optional VFit As Boolean = False, _
                Optional HCenter As Boolean = True, Optional VCenter As Boolean = False, _
                Optional eOrient As XlPageOrientation = xlPortrait, Optional eSize As ePaperSize = xlA4)
 
Dim pSetup As String
Dim varMargin As Variant
Dim lngOrient As Integer
 
'// 인쇄설정 업데이트 중단 (속도증가)
Application.PrintCommunication = False
 
'// 인쇄여백값을 받아옵니다.
varMargin = getPrintMargin(eMargin)
 
'// 인쇄용지 방향을 설정합니다.
If eOrient = xlPortrait Then
    lngOrient = 1
Else
    lngOrient = 2
End If
 
'// ExecuteExcel4Macro 의 Page.Setup 명령문 실행을 위한 문구를 입력합니다.
Head = """&L" & LHead & "&R" & RHead & """"   '// 페이지 머릿말입니다.
Foot = """&L" & LFoot & "&R" & RFoot & """"     '// 페이지 꼬릿말입니다.
pLeft = varMargin(0)                            '// 왼쪽여백
pRight = varMargin(1)                           '// 오른쪽여백
top = varMargin(2)                              '// 윗여백
Bot = varMargin(3)                              '// 아래여백
Head_margin = varMargin(4)                      '// 머릿말여백
Foot_margin = varMargin(5)                      '// 꼬릿말여백
Hdng = 0                                        '// 행/열반복 출력여부 0 = 반복출력안함 1 = 반복출력
Grid = False                                    '// 눈금선출력여부
Notes = False                                   '// 메모출력여부
H_cntr = HCenter                                '// 가운데정렬
V_cntr = VCenter                                '// 중앙정렬
Orient = lngOrient                              '// 문서방향, 1 = 세로 2 = 가로
Paper_size = eSize                              '// 용지크기
Pg_num = 1                                      '// 페이지 시작번호
Pg_order = 1                                    '// 페이지번호 순서, 1 = 위-아래-우 2 = 좌-우-아래
Quality = ""                                    '// 인쇄품질 (dot-per-inch로 입력) (공백 = 자동)
bw_cells = False                                '// 흑백인쇄여부, TRUE = 글자/테두리 검정,배경 흰색 FALSE = 색깔
pScale = 100                                    '// 축소/확대비율 또는 TRUE (Fit to Page)
 
'// 여백을 없음으로 설정할 경우 머릿말/꼬릿말을 삭제하여 인쇄영역과 겹치지 않도록 합니다.
If eMargin = xlNone Then
    Head = """"""
    Foot = """"""
End If
 
 
'// ExecuteExcel4Macro 명령문을 실행합니다.
pSetup = "PAGE.SETUP(" & Head & ", " & Foot & ", " & pLeft & ", " & pRight & ", " & top & ", " & Bot & ", "
pSetup = pSetup & Hdng & ", " & Grid & "," & H_cntr & "," & V_cntr & "," & Orient & ","
pSetup = pSetup & Paper_size & "," & pScale & ","
pSetup = pSetup & Pg_num & "," & Pg_order & "," & bw_cells & "," & Quality & ","
pSetup = pSetup & Head_margin & "," & Foot_margin & "," & Notes & ")"
 
Application.ExecuteExcel4Macro pSetup
 
'// ExecuteExcel4Macro에서는 '한 페이지에 행/열 맞추기' 기능이 지원되지 않습니다.
'// 따라서 시트의 PageSetup 속성으로 '페이지 행/열 맞추기 기능을 설정합니다.
With WS.PageSetup
    If HFit = True Then
        .FitToPagesWide = 1
    Else
        .FitToPagesWide = False
    End If
 
    If VFit = True Then
        .FitToPagesTall = 1
    Else
        .FitToPagesTall = False
    End If
End With
 
'// 인쇄설정 업데이트
Application.PrintCommunication = True
 
End Sub

 

 

전체 0

전체 6,469
번호 카테고리 제목 작성자 작성일 추천 조회
알림
📑 MS에서 특별한 라이브를 진행합니다! - 애저 SQL-엑셀 실시간 연동 프로그램 만들기!
오빠두엑셀 | 2022.05.24 | 추천 4 | 조회 126
오빠두엑셀 2022.05.24 4 126
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (65)
오빠두엑셀 | 2021.10.28 | 추천 80 | 조회 4490
오빠두엑셀 2021.10.28 80 4490
34406 함수/공식
New sum 함수 오류? 첨부파일 (1)
saechang | 2022.05.25 | 추천 0 | 조회 17
saechang 2022.05.25 0 17
34405 VBA
New 중복데이터가 많은데 맨 위에 있는 행의 데이터만 남길 수 있는 방법이 있을까요? 첨부파일 (1)
오구 | 2022.05.25 | 추천 0 | 조회 29
오구 2022.05.25 0 29
34402 VBA
New vba 특정문자 입력시 현재시간 구동 관련 첨부파일 (2)
1412 | 2022.05.25 | 추천 0 | 조회 32
1412 2022.05.25 0 32
34400 함수/공식
New 다른 셀 값 참조시 결과값이 0으로만 나오는 현상 문의 첨부파일 (3) 답변완료
forest choi | 2022.05.25 | 추천 0 | 조회 27
forest choi 2022.05.25 0 27
34395 VBA
New 조건이 맞을 경우 범위데이터 이동 or 복사,삭제 문의 첨부파일 (2) 답변완료
com**** | 2022.05.25 | 추천 0 | 조회 33
com**** 2022.05.25 0 33
34392 함수/공식
New 다른 파일을 참조하여 합계를 구하는데, 그 참조 파일의 이름이 바뀐다면? (1)
풀빵이네 | 2022.05.25 | 추천 0 | 조회 26
풀빵이네 2022.05.25 0 26
34391 기능/도구
New F1 키 누르면 나오는 도움말 끄는 단축키는 없나요? (2)
우렁각시탈 | 2022.05.25 | 추천 0 | 조회 26
우렁각시탈 2022.05.25 0 26
34390 함수/공식
New 셀이 빈 경우 텍스트조인이 실행되지 않도록 하는 방법 첨부파일 (6) 답변완료
forest choi | 2022.05.25 | 추천 0 | 조회 44
forest choi 2022.05.25 0 44
34387 VBA
New 개별공시지가조회 셀레니움 첨부파일 (3)
나야 | 2022.05.25 | 추천 0 | 조회 30
나야 2022.05.25 0 30
34378 기능/도구
New 특정 글자의 데이터만 따로 분리할 수 있는 방법이 있을까요? (8) 답변완료
dfgkdflglkdf | 2022.05.25 | 추천 -1 | 조회 64
dfgkdflglkdf 2022.05.25 -1 64
34376 VBA
New VBA 동적 범위 테두리 만들기 첨부파일
라바 | 2022.05.24 | 추천 -2 | 조회 38
라바 2022.05.24 -2 38
34372 VBA
New VBA Do until loop 문중에서 출하지시서 코드를 빌려 짜는데.. 한계가 왔습니다. 첨부파일 (4)
pk2616 | 2022.05.24 | 추천 0 | 조회 39
pk2616 2022.05.24 0 39
34369 기능/도구
New 하이퍼링크 (1)
쎄이 | 2022.05.24 | 추천 0 | 조회 21
쎄이 2022.05.24 0 21
34367 VBA
New 짝수 페이지 로고 크기 변경 매크로를 어떻게 만들어야 할까요? 첨부파일
꽁냐리 | 2022.05.24 | 추천 0 | 조회 23
꽁냐리 2022.05.24 0 23
34365 VBA
New 정해진 양식에 여러 부서에서 부분부분 작성된 자료를 취합하는 방법이 궁금합니다. 첨부파일 (4)
nam**** | 2022.05.24 | 추천 -1 | 조회 37
nam**** 2022.05.24 -1 37
34364 함수/공식
New 엑셀 if수식 문의 드립니다. (1)
달려라탁구 | 2022.05.24 | 추천 0 | 조회 32
달려라탁구 2022.05.24 0 32
34361 함수/공식
New "06w 2"에서 "2"만 추출하여 총합을 구하는 방법 첨부파일 (1) 답변완료
forest choi | 2022.05.24 | 추천 0 | 조회 47
forest choi 2022.05.24 0 47
34360 함수/공식
New 특정 셀만 기입하게 할 수 있을까요? (셀 잠금 말고) 첨부파일
신지영 | 2022.05.24 | 추천 0 | 조회 32
신지영 2022.05.24 0 32
34356 함수/공식
New 날짜(월) 계산하는 문제 관련 (5) 답변완료
nowhs | 2022.05.24 | 추천 1 | 조회 48
nowhs 2022.05.24 1 48
34350 함수/공식
New 강의별 출석부를 만들고 싶어요 첨부파일 (2) 답변완료
Blak case | 2022.05.24 | 추천 0 | 조회 53
Blak case 2022.05.24 0 53
34348 기능/도구
New 다른 통합 문서로 시트 복사시 함수 파일명 관련 (4) 답변완료
허경일 | 2022.05.24 | 추천 0 | 조회 38
허경일 2022.05.24 0 38
34345 파워쿼리/피벗
New 각 테이블 마다 중복제거관련 (13) 답변완료
엑셀지킴이 | 2022.05.24 | 추천 0 | 조회 57
엑셀지킴이 2022.05.24 0 57
34341 기능/도구
New 엑셀 시트 글자크기 및 사이즈 조정 되나요?
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 31
DOUKCHEON 이재형 2022.05.24 0 31
34340 함수/공식
New 여러개의 열에 만족하는 값 구하기 (5) 답변완료
프래이야 | 2022.05.24 | 추천 0 | 조회 49
프래이야 2022.05.24 0 49
34338 문서서식
New 선택한 셀 절대값으로 한번에 바꾸는 방법 (2)
DOUKCHEON 이재형 | 2022.05.24 | 추천 0 | 조회 44
DOUKCHEON 이재형 2022.05.24 0 44
34337 구글시트
New 발주대비 입고일자를 카운팅 하고싶습니다. (2) 답변완료
김성민 | 2022.05.24 | 추천 0 | 조회 37
김성민 2022.05.24 0 37
34336 VBA
New 다른 시트의 두 셀 연동
kido**** | 2022.05.24 | 추천 0 | 조회 41
kido**** 2022.05.24 0 41
34334 VBA
New VBA 검색창을 만들었는데 엔터가 되지 않습니다..! (2) 답변완료
김수달 | 2022.05.24 | 추천 0 | 조회 45
김수달 2022.05.24 0 45
34332 구글시트
New 2개의 조건을 충족하는 조건 값을 다른 시트에서 끌어 올려면 어떻게 해야 할까요? (1)
흰별이 | 2022.05.24 | 추천 0 | 조회 27
흰별이 2022.05.24 0 27
34330 함수/공식
New 엑셀에 수식 합치기 기능이 있을까요? 첨부파일 (3) 답변완료
크미누크르 | 2022.05.24 | 추천 0 | 조회 61
크미누크르 2022.05.24 0 61