批量打印符合条件的工作表，运行打印35个表后，Printout报错。

jijibaby

各位大侠好：
  我的需求是，一个工作簿中有约200个工作表，其中送货数大于0的工作表，是需要打印的，现实是手工逐一打开工作表，肉眼判断后点击快速打印。
  为提高效率，我设计了宏，逐一判断工作表中送货数是否大于0，大于0则打印，否则跳过。
  宏运行是正常的，但是超过一定数量后就报错： 类Worksheet的Printout方法无效。
  求解
  并求助，VBA如何指定某一台打印机呢，这样不用每次都手动选择打印机。

代码如下：
Sub 判断打印0315()

    Dim i, j, x, hshu, lshu, hri, lri, jishu As Byte
    Dim rowrng, colrng, cnt, heji As Integer

    For Each sh In Worksheets
        sh.Activate
        If ActiveSheet.Name <> "订单源" And ActiveSheet.Name <> "更新" And ActiveSheet.Name <> "Sheet1" Then
            rowrng = ActiveSheet.Range("a7").CurrentRegion.Rows.Count
            colrng = ActiveSheet.Range("a7").CurrentRegion.Columns.Count
            cnt = 0
            heji = 0
            For i = 6 To 9
                For j = 1 To colrng
                    If ActiveSheet.Cells(i, j).Text = "生产日期" Then
                        hri = i
                        lri = j
                    ElseIf ActiveSheet.Cells(i, j).Text = "送货数" Or ActiveSheet.Cells(i, j).Text = "数量" Then
                        hshu = i
                        lshu = j
                    End If
                Next j
            Next i
'    MsgBox "条码在" & hri & "行" & lri & "列"
'    MsgBox "送货数在" & hshu & "行" & lshu & "列"
            For x = 1 To rowrng
                If IsDate(ActiveSheet.Cells(hri + x, lri)) Then
                    cnt = cnt + 1
                End If
            Next x
'    MsgBox ("该列有" & cnt & "个条码")

            For x = 1 To cnt '求合计数
                If IsNumeric(ActiveSheet.Cells(hshu + x, lshu)) And IsEmpty(ActiveSheet.Cells(hshu + x, lshu)) = False Then
                    heji = heji + ActiveSheet.Cells(hshu + x, lshu).Value
                End If
            Next
'    MsgBox heji
'        Range("f55") = heji
            If heji > 0 Then
                Application.PrintCommunication = True
                ActiveSheet.PrintOut
                jishu = jishu + 1
            Else
                Application.PrintCommunication = False
            End If
        End If
    Next sh
    MsgBox "要打印的工作表有" & jishu & "个"
End Sub

约定的童话

老实交代代码是抄来的还是自己写的？
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="EPSON LQ-1900KIIH ESC/P2"     '指定打印机

jijibaby

百度查了些资料自己写的，请问如何解决打印报错的问题？