■ 아래 한글 페이지 마진을 설정하는 방법을 보여준다.
▶ 예제 코드 (VB)
|
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 pHwpParameterSet2 = Nothing Set pHwpAction = Nothing End Sub |
※ HWPGetUnit 함수 : "아래 한글 단위 구하기" 참조