[求助] 不支持 print属性或方法 print, 属性

cwa9958

我想写个打印的过程,测试代码如下:
Sub CaiGoudd(Obj As Object)   '打印采购单
    Dim Shang As Integer, Zhuo As Integer    '边距
    Dim Cangmin As String, Addr As String, Tel As String, Fax As String
   
    Shang = 25
    Zhuo = 20
    Cangmin = "瑞安市电器有限公司"
    Addr = "浙江省瑞安市经济开发区"
    Tel = "0577 65100000"
    Fax = "0577 65150000"
   
    With Obj
        .ScaleMode = 6        '度量单位为mm
        .DrawWidth = 6        '线宽度
        .FontSize = 20
        .CurrentX = (.ScaleWidth - .TextWidth(Cangmin)) / 2    '居中
        .CurrentY = Shang
        
        .Print Cangmin    'Printer.Print Cangmin

        .EndDoc
    End With
End Sub

调用时
Call CaiGoudd(Printer)
运行.Print Cangmin    出错,提示不支持属性或方法
但是 obj.Print Cangmin 又可以.
要打印很多数据,每个都加obj 有点麻烦
唉,郁闷中,
Call CaiGoudd(Form1.Picture1) 也一样

cwa9958

还有怎么得到传入的obj的名字,因为printer 要 enddoc,而picture 或form 就不需要,要判断,
虽然可以用on error获得

acme_pjz

Print那个方法有一点不正常，是非标准方法（你看到Print是蓝色的没有？），我也不清楚怎么解决……得到传入的obj的类型名可以用TypeName(**) 或者TypeOf xx Is xx……

download

Sub CaiGoudd(Obj As Object)

红色部份改成他的真正类型试试

ymismy

Print那个方法确实有点怪,在控件属性列表里没有它。

zdingyun

LZ:试下用函数实现吧.

1. Option Explicit
   
2.     Dim colvb As Long
   
3.     Dim x As Long
   
4.     Dim y As Long
   
5.     Dim fnt As Long
   
6.     Dim txt As String
   
7.     Dim dd As Variant
   
8. 
   
9. Public Function pt(colvb As Long, x As Long, y As Long, fnt As Long, txt As String)
   
10.     Picture1.ForeColor = colvb
    
11.     Picture1.CurrentX = x
    
12.     Picture1.CurrentY = y
    
13.     Picture1.FontSize = fnt
    
14.     Picture1.Print txt
    
15. End Function
    
16. 
    
17. Private Sub Command1_Click()
    
18.     x = 5
    
19.     y = 5
    
20.     colvb = vbRed
    
21.     fnt = 15
    
22.     txt = "PRINT"
    
23.     dd = pt(colvb, x, y, fnt, txt)
    
24.     x = 5
    
25.     y = 15
    
26.     colvb = vbBlue
    
27.     fnt = 24
    
28.     txt = "试下用函数实现吧"
    
29.     dd = pt(colvb, x, y, fnt, txt)
    
30. End Sub
    
31. 
    
32. Private Sub Form_Load()
    
33.     Picture1.ScaleMode = 6
    
34. End Sub

复制代码

zdingyun

1. Option Explicit
   
2.     Dim colvb As Long
   
3.     Dim x As Long
   
4.     Dim y As Long
   
5.     Dim fnt As Long
   
6.     Dim txt As String
   
7.     Dim dd As Variant
   
8. Public Function pt(colvb As Long, x As Long, y As Long, fnt As Long, txt As String)
   
9.     Picture1.ForeColor = colvb
   
10.     Picture1.CurrentX = x
    
11.     Picture1.CurrentY = y
    
12.     Picture1.FontSize = fnt
    
13.     Picture1.Print txt
    
14. End Function
    
15. Private Sub Command1_Click()
    
16.     x = 5
    
17.     y = 5
    
18.     colvb = vbRed
    
19.     fnt = 15
    
20.     txt = "瑞安市电器有限公司"
    
21.     dd = pt(colvb, x, y, fnt, txt)
    
22.     y = 12
    
23.     colvb = vbBlue
    
24.     txt = "浙江省瑞安市经济开发区"
    
25.     dd = pt(colvb, x, y, fnt, txt)
    
26.     y = 19
    
27.     colvb = vbBlue
    
28.     txt = "0577 65100000"
    
29.     dd = pt(colvb, x, y, fnt, txt)
    
30.     y = 26
    
31.     colvb = vbBlue
    
32.     txt = "0577 65100000"
    
33.     dd = pt(colvb, x, y, fnt, txt)
    
34. End Sub
    
35. Private Sub Form_Load()
    
36.     Picture1.ScaleMode = 6
    
37.     Picture1.AutoRedraw = True
    
38.     Command1_Click
    
39. End Sub

复制代码

hack0215

专家都来了

cwa9958

Print那个方法有一点不正常，是非标准方法（你看到Print是蓝色的没有？），我也不清楚怎么解决……得到传入的obj的类型名可以用TypeName(**) 或者TypeOf xx Is xx……
acme_pjz 发表于 2009-12-28 23:33

.print 没有蓝色
obj.print 有蓝色.可以正常使用
现在只能这样用了
   With Obj
        .ScaleMode = 6        '度量单位为mm
        .DrawWidth = 6        '线宽度
        .FontSize = 20
        .CurrentX = (.ScaleWidth - .TextWidth(Cangmin)) / 2    '居中
        .CurrentY = Shang
        
        Obj.Print Cangmin

        If TypeName(Obj) = "Printer" Then
            .EndDoc
        End If
        
    End With

cwa9958

Sub CaiGoudd(Obj As Object)

红色部份改成他的真正类型试试
download 发表于 2009-12-29 07:58

改了也一样