大浪淘沙，VB英雄今何在？

Question

前天我发帖提了个问题，可好像没人解答出来，应该不是个很难的问题啊。现在再贴一次求助。
   问题：现在想实现一个象银行存折套打的功能。
1. 原来我是想用窗口直接打印，调用PrintForm。该打印用于缴费，可能半年或一年才需要打印一条，打印对象是类似于存折的小本。我想使用一个变量i来记录已打印的行数，用label1.move()实现换行，
Frmprint_charge.Label_today.Move(600, 5760 - i*385, 855, 255)
可b编译出错，提示“缺少函数或变量”。请问.move方法具体怎么使用啊？能给个范例吗？2.另外我想通过printer对象实现
Dim printer1 As Printer
With printer1
     .Orientation = 2
     .ScaleLeft = 30
     .ScaleTop = 30
     .ScaleHeight = 300
     .ScaleWidth = 200
     .   （1）  '我发觉没有提示列表里根本没有print方法，只有一个printquality属性。
     .enddoc
End With
问题就是上面注释(1)所示，没有print方法出现。而我在 End With后面直接添加
   printer.printer  “Hello”
发现可以打印，但我一加到(1)处又没有任何反应了
请问问题在哪呢？

Answer 1

printer.orientation=2
printer.scaleleft=30
printer.scaletop=30
printer.scaleheight=300
printer.scalewidth=200
printer.print "Hello"
printer.enddoc

Answer 2

printer、picture等
print方法列表都不出来，但是可以用

Answer 3

在(1)处这样写可以了，不要省略"."前面的printer1
printer1.printer  “Hello”

Answer 4

/printer.printer  “Hello”/
应该是printer1.print  “Hello”

Answer 5

GGL 123我用你的方法不行啊

Answer 6

问题还没解决啊，有请各位援手呀，否则我只有用最笨的办法了，就是使用N多LABLE，然后通过IF来分支控制了

Answer 7

1.
Frmprint_charge.Label_today.Move 600, 5760 - i*385, 855, 2552.
Dim printer1 As Printer
With printer1
     .Orientation = 2
     .ScaleLeft = 30
     .ScaleTop = 30
     .ScaleHeight = 3000
     .ScaleWidth = 2000
     printer1.print "Hello"
     .enddoc
End With

Answer 8

Frmprint_charge.Label_today.Move 600, 5760 - i*385, 855, 255
就不会提示“缺少函数或变量”

Answer 9

多谢各位，特别是中海，数码辣椒。VB里毕竟还是有英雄，不过对于Printer对象的使用还是不很熟悉，以后还要请教大家。