activereport的终极问题（能解决得我感激一辈子），要多少分都给

Question

环境： win2k  vb6.0+sp5  activereport2.0  epsonlQ300K+针式打印机连续进纸方式有一个工控系统需要实现无人职守，没采集一次数据，存入数据库，并自动打印我用activereport做的报表，可每次打后纸都要走很长的距离，没法控制，这个由于打印的报表长度是固定的，还可以依靠自定义纸张解决（非常勉强的解决，寻求更好方法）。而且该系统随时都可能有人来进行批量打印（比如某天或者某月的或者某班次的数据）也就是说，打印长度不固定，每打一部分（大约A4的长度），就走很长距离（大约A4长度），然后继续打印。我怎么设置也不行，用户非常生气，扬言要换掉我的系统，诸位大哥我今天要买房子，要装修。，我不能失去这个活呀，帮帮忙！！！！！！！

Answer 1

我想你应该有几个报表吧，你在每个报表上加这样一段代码，来定义用多大的纸。
另外如果用AR建议先多看看帮助，就不难的了。
Private Sub ActiveReport_PageStart()
    PageSettings.PaperSize = 1 'Letter
    '* 如果你设置是自定义的纸张，还需要设置高度和宽度.
    PageSettings.PaperSize = 256 'Custom PaperSize
    PageSettings.PaperHeight = 6 * 1440 'Six inches
    PageSettings.PaperWidth = 6 * 1440 'Six inches
End Sub
报表的纸张设置如下：
1 Letter, 8 1/2 x 11 in
2 +A611Letter Small, 8 1/2 x 11 in
3 Tabloid, 11 x 17 in
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/2 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 10 x 14 in
17 11 x 17 in
18 Note, 8 1/2 x 11 in
19 Envelope #9, 3 7/8 x 8 7/8 in
20 Envelope #10, 4 1/8 x 9 1/2 in
21 Envelope #11, 4 1/2 x 10 3/8 in
22 Envelope #12, 4 1/2 x 11 in
23 Envelope #14, 5 x 11 1/2 in
24 C size sheet
25 D size sheet
26 E size sheet
27 Envelope DL, 110 x 220 mm
29 Envelope C3, 324 x 458 mm
30 Envelope C4, 229 x 324 mm
28 Envelope C5, 162 x 229 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 7/8 x 7 1/2 in
38 Envelope, 3 5/8 x 6 1/2 in
39 U.S. Standard Fanfold, 14 7/8 x 11 in
40 German Standard Fanfold, 8 1/2 x 12 in
41 German Legal Fanfold, 8 1/2 x 13 in
255 User Defined

Answer 2

谢谢诸位的帮忙
to:ggwb002(wai)，确实有你说的情况，我调整了，现在不会走那么长了
to:xunxm(xunxm) 你的代码  PageSettings.PaperSize = 1 'Letter
              pageSettings.PaperSize = 256 'Custom PaperSize
            这两句是不是有问题，papersize到底应该是多少？ 
to:fullor2000(兽子)  你量的长度单位是什么？20080单位是缇吗？