Word 2013 中的打印错误

Question

我有一个打印宏，它将第一页发送到我们的信头打印机，并将所有剩余页面发送到普通纸打印机。然后将文件再次打印在普通纸上以供我们记录。虽然宏在我使用 XP 和 Word 2010 时有效，但在最近升级到 Windows 7 和 Office 2013 后，宏有时会导致整个 Word 应用程序崩溃。也就是说，如果我运行宏，Word 会崩溃。如果我单步执行宏，它就可以正常工作。这个宏一天会被多次使用，我不想因为我最近的升级而丢失它。

有保存宏的想法吗？

下面的宏代码，我为其分配了 Ctrl+Shift+P

的键盘快捷键

谢谢

Public Sub LetterheadPrint()
    ' sends page 1 to the letterhead printer (\\scprint04\ASHPLJ5)
    ' sends page 2 to the regular printer (\\scprint04\ASTaxBill)
    ' prints another copy on plain paper

    On Cancel GoTo Cancelled:
    On Error GoTo Cancelled:

    ' save current printer
    Dim sCurrentPrinter As String
    sCurrentPrinter = Application.ActivePrinter

    ' Print Assessee Copy
    ' page 1 to letterhead printer
    Application.ActivePrinter = "\\scprint04\ASHPLJ5"
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"

    ' remaining pages to regular printer
    Application.ActivePrinter = "\\scprint04\ASTaxBill"
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="2"

    ' Print Office Copy
    ActiveDocument.PrintOut

Cancelled:

    'Restore original printer
    Application.ActivePrinter = sCurrentPrinter

On Error GoTo 0
End Sub

Answer 1

Ctrl+Shift+P 用于字体大小选择，这可能是问题

Option Explicit
Public Sub LetterheadPrint()
    ' sends page 1 to the letterhead printer (\\scprint04\ASHPLJ5)
    ' sends page 2 to the regular printer (\\scprint04\ASTaxBill)
    ' prints another copy on plain paper

    Dim cancel As Integer
    Application.ScreenUpdating = False


    On cancel GoTo Cancelled:
    'On Error GoTo Cancelled:


    ' save current printer
    Dim sCurrentPrinter As String
    sCurrentPrinter = Application.ActivePrinter

    ' Print Assessee Copy
    ' page 1 to letterhead printer
    Application.ActivePrinter = "ASHPLJ5"
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"

    ' remaining pages to regular printer
    Application.ActivePrinter = "ASTaxBill"
    ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="2"

    ' Print Office Copy
    ActiveDocument.PrintOut

Cancelled:

    'Restore original printer
    Application.ActivePrinter = sCurrentPrinter
    Application.ScreenUpdating = True

On Error GoTo 0
End Sub

Global.ActivePrinter Property (Word)

在早期版本（例如 Word 2010）中创建的文档在 Word 2013 中将始终以兼容模式打开，因此请打开并将其另存为新版本

我还建议您安装最新版本的驱动程序和 Office 更新