첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 아래 한글 페이지 마진 설정하기

----------------------------------------------------------------------------------------------------

'--------------------------------------------------

' 아래 한글 페이지 마진 설정하기 (단위 : 밀리미터)

'--------------------------------------------------

' pHwpCtrl      : HwpCtrl OCX

' dLeftMargin   : 왼쪽 마진

' dTopMargin    : 위쪽 마진

' dRightMargin  : 오른쪽 마진

' dBottomMargin : 아래쪽 마진

'--------------------------------------------------

Public Sub HWPSetPageMargin(pHwpCtrl As HwpCtrl, dLeftMargin As Double, dTopMargin As Double, dRightMargin As Double, dBottomMargin As Double)

 

    Dim pHwpAction        As HwpAction

    Dim pHwpParameterSet1 As HwpParameterSet

    Dim pHwpParameterSet2 As HwpParameterSet

    

    Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

    

    Set pHwpParameterSet1 = pHwpAction.CreateSet()

    

    pHwpAction.GetDefault pHwpParameterSet1

    

    pHwpParameterSet1.SetItem "ApplyTo", 3

    

    Set pHwpParameterSet2 = pHwpParameterSet1.CreateItemSet("PageDef", "PageDef")

    

    pHwpParameterSet2.SetItem "TopMargin", HWPGetUnit(dTopMargin)

    pHwpParameterSet2.SetItem "BottomMargin", HWPGetUnit(dBottomMargin)

    pHwpParameterSet2.SetItem "LeftMargin", HWPGetUnit(dLeftMargin)

    pHwpParameterSet2.SetItem "RightMargin", HWPGetUnit(dRightMargin)

    pHwpParameterSet2.SetItem "HeaderLen", 0

    pHwpParameterSet2.SetItem "FooterLen", 0

    pHwpParameterSet2.SetItem "GutterLen", 0

    

    pHwpAction.Execute pHwpParameterSet1

    

    Set pHwpParameterSet2 = Nothing

    

    Set pHwpParameterSet2 = Nothing

    

    Set pHwpAction = Nothing

 

End Sub

----------------------------------------------------------------------------------------------------

※ HWPGetUnit 함수 : "아래 한글 단위 구하기" 참조

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요