0

打印 Word (2010) 文档时出现臭名昭著的错误

可打印区域外的边距

我发现您可以使用以下宏来抑制此警告：

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)

    Dim bPrintBackgroud As Boolean

    'Save current setting of background printing
    bPrintBackgroud = Options.PrintBackground
    Options.PrintBackground = False

    'Turn off DisplayAlerts
    Application.DisplayAlerts = wdAlertsNone

    Dialogs(wdDialogFilePrint).Show

    'Turn on DisplayAlerts again
    Application.DisplayAlerts = wdAlertsAll

    'Set original background printing setting
    Options.PrintBackground = bPrintBackgroud


End Sub

这可行，但在打印作业完成后，我仍然会收到边距错误。所以脚本并没有真正抑制警告，它只是延迟它。任何人都可以指出我永久禁用此警告的正确方向吗？

4

1 回答 1

0

有两种选择：

a）消除问题，这意味着将您的边距放在可打印区域内。

b)Application.DisplayAlerts = wdAlertsNone绝对不推荐的永久设置。在您的情况下，这意味着注释该行：

'Application.DisplayAlerts = wdAlertsAll

但是，如果您这样做，请记住在您离开或关闭存在边距问题的文档时运行上述代码。在其他情况下，您将不会被告知您习惯被告知的问题。

于 2013-04-03T09:18:37.400 回答