2013-04-03 85 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