TIP 용지의 사이즈에 따라서 가로세로 정하기

[파빌신]

//용지의 사이즈에 따라서 가로세로 정하기
//of_Oripaper(adw, ai_Paper)
String ls_Orientation, ls_mCtrl
long   l_max, l_LandDef, l_PortDef
integer i_zoom

l_max = of_maxwidth(adw, ls_mCtrl)
choose case ai_paper
 case 8// - A3 297 x 420 mm
  l_LandDef = 6900
  l_PortDef = 4800
 case 9// - A4 210 x 297 mm
  l_LandDef = 4900
  l_PortDef = 3400
 case 13// - B5 182 x 257 mm
  l_LandDef = 4240
  l_PortDef = 2900
end choose

ls_Orientation = adw.Describe("DataWindow.Print.Orientation")
if ls_Orientation = '0' then
 if l_max < l_PortDef then
  adw.Modify("DataWindow.Print.Orientation=2") //Portrait
 else
  adw.Modify("DataWindow.Print.Orientation=1") //Landscape
 end if
end if
adw.Modify("DataWindow.Print.Paper.Size="+String(ai_paper))

/*
Paper.Size An integer indicating the size of the paper used for the output:
0 - Default paper size for the printer
1 - Letter 8 1/2 x 11 in
2 - LetterSmall 8 1/2 x 11 in
3 - Tabloid 17 x 11 in
4 - Ledger 17 x 11 in
5 - Legal 8 1/2 x 14 in
6 - Statement 5 1/2 x 8 1/2 in7 - Executive
7 1/4 x 10 1/2 in
8 - A3 297 x 420 mm
9 - A4 210 x 297 mm
10 - A4 Small 210 x 297 mm
11 - A5 148 x 210 mm
12 - B4 250 x 354 mm
13 - B5 182 x 257 mm
14 - Folio 8 1/2 x 13 in
15 - Quarto 215 x 275 mm
16 - 10x14 in
17 - 11x17 in
18 - Note 8 1/2 x 11 in
19 - Envelope #9 3 7/8 x 8 7/8
20 - Envelope #10 4 1/8 x 9 1/2
21 - Envelope #11 4 1/2 x 10 3/8
22 - Envelope #12 4 x 11 1/276
23 - Envelope #14 5 x 11 1/2
24 - C size sheet
25 - D size sheet
26 - E size sheet
27 - Envelope DL 110 x 220 mm
28 - Envelope C5 162 x 229 mm
29 - Envelope C3 324 x 458 mm
30 - Envelope C4 229 x 324 mm
31 - Envelope C6 114 x 162 mm
32 - Envelope C65 114 x 229 mm
33 - Envelope B4 250 x 353 mm
34 - Envelope B5 176 x 250 mm
35 - Envelope B6 176 x 125 mm
36 - Envelope 110 x 230 mm
37 - Envelope Monarch 3.875 x 7.5 in
38 - 6 3/4 Envelope 3 5/8 x 6 1/2 in
39 - US Std Fanfold 14 7/8 x 11 in
40 - German Std Fanfold 8 1/2 x 12 in
41 - German Legal Fanfold 8 1/2 x 13 in
255, 256 - User-defined paper size (see "Usage" below)
*/