[VB] 아래 한글 페이지 마진 설정하기

icodebroker VB 2024-06-18

■ 아래 한글 페이지 마진을 설정하는 방법을 보여준다.

▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 페이지 마진 설정하기 (단위 : 밀리미터)
'--------------------------------------------------
' 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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

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

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

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

' 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 pHwpAction = Nothing

End Sub

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

CONTROL VB