1180
社区成员
- 主页
使用printer对象要初始化打印机吗？
Dim printer1 As Printer
With printer1
.Orientation = 2
.ScaleLeft = 600
.ScaleTop = 5760
.ScaleHeight = 255
.ScaleWidth = 855
. '我发觉没有提示列表里根本没有print方法，只有一个printquality方法。
End With
问题就是上面注释所示，没有print方法出现。第一次使用printer,我想问下使用printer对象是否还要初始化我本地的打印机还是直接就可打印？
另外我现在想实现一个象银行存折套打的功能，原来我是想用窗口直接打印，调用PrintForm，可打完一条记录后，想用label1.move()实现换行，
Frmprint_charge.Label_today.Move(600, 5760 - i*385, 855, 255)
可b编译出错，提示“缺少函数或变量”。请问.move方法具体怎么使用啊？能给个范例吗？
谢谢。
With printer1
.Orientation = 2
.ScaleLeft = 600
.ScaleTop = 5760
.ScaleHeight = 255
.ScaleWidth = 855
. '我发觉没有提示列表里根本没有print方法，只有一个printquality方法。
End With
问题就是上面注释所示，没有print方法出现。第一次使用printer,我想问下使用printer对象是否还要初始化我本地的打印机还是直接就可打印？
另外我现在想实现一个象银行存折套打的功能，原来我是想用窗口直接打印，调用PrintForm，可打完一条记录后，想用label1.move()实现换行，
Frmprint_charge.Label_today.Move(600, 5760 - i*385, 855, 255)
可b编译出错，提示“缺少函数或变量”。请问.move方法具体怎么使用啊？能给个范例吗？
谢谢。
...全文
请发表友善的回复…
发表回复
qjzrd 2004-11-03
我的qq是106482450
信箱：rongdong_zhu@yahoo.com
信箱：rongdong_zhu@yahoo.com
qjzrd 2004-11-03
对的就是这样的我经常用，呵呵
但是不知到哪位高手能高诉我，有关图象打印的问题，为什么打印出来的图象不清楚呢
我用的是picturebox控件，打印机是专用的图象打印机，在此谢了。
但是不知到哪位高手能高诉我，有关图象打印的问题，为什么打印出来的图象不清楚呢
我用的是picturebox控件，打印机是专用的图象打印机，在此谢了。
skyweave 2004-10-27
你对printer的理解有偏差，建议看看msdn中关于printer的说明。
不过msdn确实有些模糊就是了。
在Dim printer1 As Printer，这样一句话中只是表示把printer1声明成一个Printer的Object。在使用的之前，你要把他指向一个时间的printer对象。不过不建议你这么用。
在VB里面如果直接写这样一句话：Printer.Print "aaa"。是可以的。这个地方的Printer是指向系统默认的打印机。注意区别上面的一个例子。
如果我要使用的不是默认打印机怎么办，结合printers对象使用。例如：
for each prt in Printers
if prt.devicename="***" then
set Printer=prt
end if
next prt
注意上面一段程序中，把一个符合要求的Prt赋给默认的Printer对象，这样你就可以使用了。
.Print方法你可以直接使用，的确是不会下拉出来的。因为你可以这么写： Print "aaa"。
说了这么多，建议多测试一下，看看msdn。
不过msdn确实有些模糊就是了。
在Dim printer1 As Printer，这样一句话中只是表示把printer1声明成一个Printer的Object。在使用的之前，你要把他指向一个时间的printer对象。不过不建议你这么用。
在VB里面如果直接写这样一句话：Printer.Print "aaa"。是可以的。这个地方的Printer是指向系统默认的打印机。注意区别上面的一个例子。
如果我要使用的不是默认打印机怎么办，结合printers对象使用。例如：
for each prt in Printers
if prt.devicename="***" then
set Printer=prt
end if
next prt
注意上面一段程序中，把一个符合要求的Prt赋给默认的Printer对象，这样你就可以使用了。
.Print方法你可以直接使用，的确是不会下拉出来的。因为你可以这么写： Print "aaa"。
说了这么多，建议多测试一下，看看msdn。
GGL123 2004-10-26
另外要这样写：printer1.print "Hello" 不要写 .print "Hello"
GGL123 2004-10-26
Dim printer1 As Printer
set printer1=printer
'这样就不会出错了。
set printer1=printer
'这样就不会出错了。
zhujiechang 2004-10-26
不能够这样Dim printer1 As Printer.
直接用printer对象.printer.print "Hello"
直接用printer对象.printer.print "Hello"
lengchan 2004-10-26
呵呵，还是不行,提示“未找到方法或函数成员”
GGL123 2004-10-26
print是看不到，但是那样写是没问题的。看不到你可以写出来就行了，不管看到看不到，只管写就行了。
lengchan 2004-10-26
无论是 zhujiechang 还是 GGL123 的方法仍然看不到print方法
lengchan 2004-10-25
那我使用 printer对象时为什么没有print方法呢？
zhujiechang 2004-10-25
printer对象有print方法,printer.print "Hello"(字符串).
但是用.是不出来的，你直接向上面那样写就可以了。
但是用.是不出来的，你直接向上面那样写就可以了。
nmgwangwei 2004-10-25
我打印的时候只是对纸型和宽窄边为顶进行设置没有对打印机进行初始化，是可以正确打印的。。
lengchan 2004-10-25
唉，有否高人说句话呢