PB中有关打印的问题

[qinyj]

PB中如何获得当前打印机的纸张大小及宽窄等以及在程序中改变纸张如何获得其宽度？

[hippo]

用dw_1.Describe("DataWindow.Print.Page.Size")可以得到纸张大小，但其值多数为0，
即使用打印机的缺省纸张大小。

printdatawindow()打印时使用当前打印机的缺省值，Print()使用用户
设置在DataWindow内的打印规范，如要修改datawindow的纸张类型，可以
这样

dw_1.modify("DataWindow.Print.Page.Size=?")
?的值可以为下面的值
0 Default paper size for the printer
1 Letter 8 1/2 x 11 in
2 LetterSmall 8 1/2 x 11in
3 Tabloid 17 x 11 inches
4 Ledger 17 x 11 in
5 Legal 8 1/2 x 14 in
6 Statement 5 1/2 x 8 1/2 in
7 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 A4 250 x 354 mm
13 B5 182 x 257 mm
14 Folio 8 1/2 x 13 in
15 Quarto 215 x 275mm
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 220mm
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