以下代码是控制标签打印机打印标签的一段，运行报错（橙色部分），请问为什么呀？
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

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

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