以下代码是控制标签打印机打印标签的一段，运行报错（橙色部分），请问为什么呀？
Private Sub cmd_start_Click()
    num_printed = 0
    num_printing = printing.Caption    '需要打印数量
    num_printed = printed.Caption      '已打印数量
    num_s = "0"
   
    Do Until num_printing = 0
        If num_s = "0" Then
            Set mydocs = myapp.Documents
            Set mydoc = mydocs.Open(" & App.Path & " & file.Text)
            
            num_printing = num_printing - 1
            num_printed = num_printed + 1
            printing.Caption = num_printing
            printed.Caption = num_printed
            mydoc.PrintLabel 1  这里报警，提示“对象变量或WITH块变量未设置”
        End If
        
        mydoc.FormFeed
        mydocs.CloseAll
        Comm
        DoEvents
    Loop
   
    If num_printing = 0 Then
        cmd_start.Enabled = False
    End If
End Sub

            mydoc.PrintLabel 1  这里报警，提示“对象变量或WITH块变量未设置”
你先检查这二个问题吧.
1\ mydoc 是什么对象.
2\ PrintLabel 是什么过程或函数 对参数要求是什么?  你现在给的参数是 1

感觉正确的应该是:
            mydoc.Print Label1
空格位置打错了.

谢谢版主大人的回复，这两个问题我说下。
1、mydoc是标签文件，也就是我要打印的条码标签文件；
2、PrintLabel 是 mydoc.后vb自动提示出现的，所以中间不存在空格。我手上还有个以前的程序，也是用的mydoc.PrintLabel 1

mydoc对象既然被引用到Do循环里，建议尝试每次用后关闭或销毁它，具体请参考mydoc对象的使用方法

尝试将代码改为下面的试试先：

    Do Until num_printing = 0
        If num_s = "0" Then
            Set mydocs = myapp.Documents
            Set mydoc = mydocs.Open(" & App.Path & " & file.Text)
           
            num_printing = num_printing - 1
            num_printed = num_printed + 1
            printing.Caption = num_printing
            printed.Caption = num_printed
            mydoc.PrintLabel 1         
            mydoc.FormFeed
            mydocs.CloseAll
            Comm
            DoEvents
        End If
    Loop

哦，不过现在试不了。。打印机在公司的。。只有下周试试看能行不了。。