2013-04-03 56 views
0

当打印字(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 

这个工作,但是在打印作业完成后,我仍然获得利润的错误。所以这个脚本并没有真正抑制这个警告,它只是延迟了它。任何人都可以指出我正确的方向来永久禁用此警告?

回答

0

有两种选择:

一)删除的问题,这意味着把打印区域边距。

b)永久设置Application.DisplayAlerts = wdAlertsNone这是绝对不推荐。在你的情况就意味着要评论该行:

'Application.DisplayAlerts = wdAlertsAll 

但是,如果你这样做,请记住,当你离开或与您有保证金的问题密切文档运行上面的代码。在其他情况下,您不会被告知您习惯了解的问题。

+0

当我们更新打印机的固件时,边缘错误开始发生,这是由于维护问题而需要的。有几百个Word文档出现此错误,因此重置每个文档的边距并不是真正的选择,因为这也会使布局稍稍松动。 不幸的是,注释掉该行并没有奏效。仍然得到错误。 – Matthias

+0

好的,我明白了你的观点,用你的宏做了一些测试,检查了一些解决方案,我在这个[问题]中描述了唯一的想法(http://social.msdn.microsoft.com/Forums/en-US/worddev/thread/9730e57c-049a-4490-90be-ac7e31621fa0 /)和[这里是可能的解决方案](http://support.microsoft.com/kb/259971) –

+0

好的,谢谢你的信息。 – Matthias