打印：怪事，打印双面时，打印机罢工

weiyingde · 发表于 2020-2-25 10:50

本帖最后由 weiyingde 于 2020-2-25 15:24 编辑

打印双面时,还未停止的打印机却停止工作，不知何故。
Sub 半自动双面打印()
Dim PgNub As Integer, PgDubl As Boolean, x%, y%, z%
PgDubl = True
'CreateObject("WScript.Network").SetDefaultPrinter = "Lenovo M7206"
Application.ActivePrinter = "Lenovo M7206"
With ActiveDocument
   .Content.Find.Execute "^13[ 　^t" & ChrW(160) & "^11^13]{1,}", , , 2, , , , , , "^p", 2
   For x = .Paragraphs.Count To 1 Step -1
      If VBA.Len(.Paragraphs(x)) = 1 Then .Paragraphs(x).Range.Delete
   Next
   PgNub = .Content.Information(wdActiveEndAdjustedPageNumber)
         'ActiveDocument.ActiveWindow.Panes(1).Pages.Count
         'ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
   FilNm = Split(ThisDocument.Name, ".")(0)
   If PgNub Mod 2 <> 0 Then PgDubl = False
   If MsgBox("你要打印" & FilNm & "吗？" & vbCr & "打印按“是”", vbOKCancel, Space(15) & "温馨提示") = False Then Exit Sub
   If Len(.Content) = 1 Then Exit Sub
   For y = 1 To PgNub Step 2
      isr1 = isr1 & y & ","
      cnt1 = cnt1 + 1
   Next
      Options.PrintReverse = False ' 设置顺序打印
      isr1 = Left(isr1, Len(isr1) - 1)
      tm1 = Timer
      .PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr1
      Do
         DoEvents
      Loop While Timer - tm1 < 7 * cnt1
      msg = IIf(PgDubl = False, "因文档总页数是奇数" & vbCr & "请将最后一页取下来！", "")

    '打印双面时,已经打完单面的打印机却停止工作，以下代码，不起作用，为什么？
      If MsgBox("单面已经打完，请把纸张反过来，" & vbCr & "接着打印双面！" & msg, vbInformation, Space(25) & "温馨提示") = True Then
         Options.PrintReverse = True '打印偶数页，逆序打印！
         For z = IIf(PgDubl = False, PgNub - 1, PgNub) To 1 Step -2
            isr2 = isr2 & z & ","
            cnt2 = cnt2 + 1
         Next
            isr2 = Left(isr2, Len(isr2) - 1)
         tm2 = Timer
            .PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr2
         Do
            DoEvents
         Loop While Timer - tm2 < 7 * cnt2
      End If
      Options.PrintReverse = False '回复顺序打印
      '.Close , False
End With
End Sub

weiyingde · 发表于 2020-2-25 12:33

再次求救与大侠，在线等，内行方家路过好心人，施援。

weiyingde · 发表于 2020-2-25 13:23

三求大侠，盼方家元首搭救，在线等^^^^^^^

weiyingde · 发表于 2020-2-25 17:02

四次求救，再次拜请各位援手，在线一等一天了
我的打印机设置如下
请问，代码可有问题，要在那儿修改？
我用
Dim PgDubl As Boolean, PgNub As Integer
Sub 打印()
Call 打印单面
If MsgBox("单面已经打完，请把纸张反过来，" & vbCr & "接着打印双面！" & msg, vbInformation, Space(25) & "温馨提示") = True Then
Call 打印双面
End If
End Sub
一个过程，完成不了两面打印。
Sub 打印单面()
Dim x%, y%, z%
PgDubl = True
'Application.ActivePrinter = "Lenovo M7206"
With ActiveDocument
   If Len(.Content) = 1 Then Exit Sub
   FilNm = Split(ThisDocument.Name, ".")(0)
   PgNub = .Content.Information(wdActiveEndAdjustedPageNumber)
   If PgNub Mod 2 <> 0 Then PgDubl = False
   If MsgBox("你要打印" & FilNm & "吗？" & vbCr & "打印按“是”", vbOKCancel, Space(15) & "温馨提示") = False Then Exit Sub
   For y = 1 To PgNub Step 2
      isr1 = isr1 & y & ","
      cnt1 = cnt1 + 1
   Next
      isr1 = Left(isr1, Len(isr1) - 1)
      tm1 = Timer
      .PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr1
      Do
         DoEvents
      Loop While Timer - tm1 < 7 * cnt1
      msg = IIf(PgDubl = False, "因文档总页数是奇数" & vbCr & "请将最后一页取下来！", "")
End With
End Sub
Sub 打印双面()
   For z = IIf(PgDubl = False, PgNub - 1, PgNub) To 1 Step -2
      isr2 = isr2 & z & ","
      cnt2 = cnt2 + 1
   Next
      isr2 = Left(isr2, Len(isr2) - 1)
      tm2 = Timer
      ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr2, Collate:=True, Background:=True
      Do
         DoEvents
      Loop While Timer - tm2 < 7 * cnt2
End Sub

可是，我先点击“打印单面”，然后在点击“打印双面”，却运行正常。

请问：为什么一定要点击两次，也就是说打印机要启动两次呢？
能不能一次成功？有什么办法？

weiyingde · 发表于 2020-2-25 17:45

我做成两个过程一个完成，再点另一个，却能正常运行。
这是为什么？
难道非要手动吗？
Dim PgDubl As Boolean, PgNub As Integer
Sub 打印单面()
Dim x%, y%, z%
PgDubl = True
'Application.ActivePrinter = "Lenovo M7206"
With ActiveDocument
   If Len(.Content) = 1 Then Exit Sub
   FilNm = Split(ThisDocument.Name, ".")(0)
   PgNub = .Content.Information(wdActiveEndAdjustedPageNumber)
   If PgNub Mod 2 <> 0 Then PgDubl = False
   If MsgBox("你要打印" & FilNm & "吗？" & vbCr & "打印按“是”", vbOKCancel, Space(15) & "温馨提示") = False Then Exit Sub
   For y = 1 To PgNub Step 2
      isr1 = isr1 & y & ","
      cnt1 = cnt1 + 1
   Next
      isr1 = Left(isr1, Len(isr1) - 1)
      tm1 = Timer
      .PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr1
      Do
         DoEvents
      Loop While Timer - tm1 < 7 * cnt1
End With
msg = IIf(PgDubl = False, "因文档总页数是奇数" & vbCr & "请将最后一页取下来！", "")
MsgBox "单面已经打完，请把纸张反过来，" & vbCr & "接着打印双面！" & msg, vbInformation, Space(15 + 2 * Len(FilNm)) & "温馨提示"
End Sub
Sub 打印双面()
   For z = IIf(PgDubl = False, PgNub - 1, PgNub) To 1 Step -2
      isr2 = isr2 & z & ","
      cnt2 = cnt2 + 1
   Next
      isr2 = Left(isr2, Len(isr2) - 1)
      tm2 = Timer
      ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=isr2, Collate:=True, Background:=True
      Do
         DoEvents
      Loop While Timer - tm2 < 7 * cnt2
End Sub
我的打印机配置如图请大侠帮我看看，到底为何。