用VBA打印，文档打印完成后，为什么打印机的程序里会留很多打印文档，删都删不掉？

xiaoya6976

打印的代码
Sub 批量打印()
    '定义变量
    Dim ws As Worksheet
    Dim wsIndex As Integer
    Dim wsIndices As Variant
    Dim indx As Variant
   
    '需要打印的工作表索引
    wsIndices = Array("审批表", "谈判报告", "人员登记表", _
        "承诺书", "汇总排序表", "初评", "监督报告")
   
    For Each indx In wsIndices
        '选定工作表
        Set ws = ThisWorkbook.Sheets(indx)
        
        With ws.PageSetup
            '重置设置
            .Zoom = False
            .FitToPagesTall = False
            .FitToPagesWide = False
        End With
        
        Select Case indx
            Case "审批表"
                '将工作表调整为一页
                With ws.PageSetup
                    .FitToPagesTall = 1
                    .FitToPagesWide = 1
                End With
                ws.PrintOut
            Case "谈判报告"
                '打印前3页
                ws.PrintOut From:=1, To:=3
            Case 人员登记表"
                With ws.PageSetup
                    .Orientation = xlLandscape ' 设置为横向打印
                End With
                ws.PrintOut
            Case "汇总排序表"
                With ws.PageSetup
                    .Orientation = xlLandscape ' 设置为横向打印
                End With
                ws.PrintOut
            Case Else
                '其他工作表仅打印第一页
                ws.PrintOut From:=1, To:=1
        End Select
    Next indx
   
    Set ws = Nothing
End Sub

文档打印完成后，打印机程序里面是这样

qline302

这打印状态是删除，有正常打印出来文件吗？如果没有打印，难不成是输出的太快了积压后内存不足？是就printout 后用 applicaiton.wait试试。

xiaoya6976

qline302 发表于 2024-1-24 20:36
这打印状态是删除，有正常打印出来文件吗？如果没有打印，难不成是输出的太快了积压后内存不足？是就printo ...

文件能正常打印出来，但打印出来后打印机序列里面的任务一直还在打印，点暂停，取消打印任务，还是删不掉打印序列

morpheus126

建议先重装打印驱动。。。这个反而是最简单的

qline302

morpheus126 发表于 2024-1-25 14:46
建议先重装打印驱动。。。这个反而是最简单的

这可能问题在打印机，他的建议很好。

xiaoya6976

morpheus126 发表于 2024-1-25 14:46
建议先重装打印驱动。。。这个反而是最简单的

确实搞不定，重装驱动后好了…………………………