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

■ 아래 한글 페이지 방향 설정하기

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

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

' 아래 한글 페이지 방향 설정하기

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

' pHwpCtrl   : HwpCtrl OCX

' bLandsacpe : 가로 방향 여부

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

Public Sub HWPSetPageDirection(pHwpCtrl As HwpCtrl, bLandsacpe As Boolean)

 

    Dim pHwpAction                As HwpAction

    Dim pHwpParameterSet          As HwpParameterSet

    Dim pSubsidaryHwpParameterSet As HwpParameterSet

 

    Set pHwpAction = pHwpCtrl.CreateAction("PageSetup")

    

    Set pHwpParameterSet = pHwpAction.CreateSet()

    

    pHwpAction.GetDefault pHwpParameterSet

    

    pHwpParameterSet.SetItem "ApplyTo", 3

    

    Set pSubsidaryHwpParameterSet = pHwpParameterSet.CreateItemSet("PageDef", "PageDef")

    

    

    If bLandsacpe = True Then

    

        pSubsidaryHwpParameterSet.SetItem "Landscape", 1

        

    Else

    

        pSubsidaryHwpParameterSet.SetItem "Landscape", 0

        

    End If

    

    pHwpAction.Execute pHwpParameterSet

    

    Set pHwpParameterSet = Nothing

    

    Set pHwpAction = Nothing

 

End Sub

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

Posted by 사용자 icodebroker
TAG ,

댓글을 달아 주세요