■ 아래 한글 페이지 방향을 설정하는 방법을 보여준다.
▶ 예제 코드 (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 |
'-------------------------------------------------- ' 아래 한글 페이지 방향 설정하기 '-------------------------------------------------- ' 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 |