上个帖子还没问完就被强制结贴了。。。接着问。。。运行报错，如下红色部分
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
        End If
        
        mydoc.FormFeed
        mydocs.CloseAll  这里报错：实时错误 -2147417848（80010108）  自动化错误
        Comm
        DoEvents
    Loop
   
    If num_printing = 0 Then
        cmd_start.Enabled = False
    End If
End Sub

不知道楼主引用的对象是什么东东，我没用过。你可以尝试将代码改为下面的试试：
具体的话你还是得看你所引用的myapp对象的使用帮助。

Private Sub cmd_start_Click()
    num_printed = 0
    num_printing = printing.Caption    '需要打印数量
    num_printed = printed.Caption      '已打印数量
    num_s = "0"
   
    Set mydocs = myapp.Documents
    Do Until num_printing = 0
        If num_s = "0" Then
            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
        End If
        
        mydoc.FormFeed
        Comm
        DoEvents
    Loop
         mydocs.CloseAll     
    If num_printing = 0 Then
        cmd_start.Enabled = False
    End If
End Sub

这个错误不报了，但是关闭程序的时候会弹出错误。。
看来还有哪点有问题。。

-2147417848（80010108） 对象已断开链接。

错误就是对象释放的时机和方式问题。