Disable Winword error messsage in VB
Hi,
Following code in a VB-COM use Winword to print out a document. But Winword will rise an error message if something is wrong in the document. I don't want the error message, since no body is waiting for clicking that OK button. Is it possible to disable that error message from Winword? Thanks.
Set m_objNewDoc = m_objMSWord.Documents.Open(v_strInWordDoc, False, True)
Set m_objMSWordDialog = m_objMSWord.Dialogs(97)
m_objMSWordDialog.Printer = m_DC.NewPrinterName
m_objMSWordDialog.DoNotSetAsSysDefault = 1
m_objMSWordDialog.Execute
m_objNewDoc.PrintOut False 'Error rised here ...
m_objNewDoc.Close False
问题点数：50、回复次数：3Top
1 楼Gelim（Gelim）回复于 2003-11-04 01:35:30 得分 50
expression.PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)
expression 必需。该表达式返回上述对象之一。
Background Variant 类型，可选。如果将该参数设为 True，则 Microsoft Word 在打印文档时继续运行宏。
Append Variant 类型，可选。如果将该参数设为 True，则将指定文档添至由 OutputFileName 参数所指定的文件中。如果将该参数设为 False，则覆盖 OutputFileName 参数所指定文件的内容。
Range Variant 类型，可选。该参数表示页面范围。可以是任意 WdPrintOutRange 常量。
wdPrintAllDocument
wdPrintCurrentPage
wdPrintFromTo
wdPrintRangeOfPages
wdPrintSelection
OutputFileName Variant 类型，可选。如果 PrintToFile 的值为 True，则该参数指定输出文件的路径和文件名。
From Variant 类型，可选。如果将 Range 设为 wdPrintFromTo，则该参数指定起始页码。
To Variant 类型，可选。如果将 Range 设为 wdPrintFromTo，则该参数指定结束页码。
Item Variant 类型，可选。该参数代表要打印的项目。可以是任意 WdPrintOutItem 常量。
wdPrintAutoTextEntries
wdPrintComments
wdPrintDocumentContent
wdPrintKeyAssignments
wdPrintProperties
wdPrintStyles
Copies Variant 类型，可选。该参数代表要打印的份数。
Pages Variant 类型，可选。该参数表示要打印的页码和页码范围，以逗号分隔各项。例如，“2, 6-10”表示打印第 2 页和第 6 至 10 页。
PageType Variant 类型，可选。该参数表示要打印的页面类型。可以是任意 WdPrintOutPages 常量。
wdPrintAllPages
wdPrintEvenPagesOnly
wdPrintOddPagesOnly
PrintToFile Variant 类型，可选。如该参数值为 True，则将打印指令发送到文件。请确认使用 OutputFileName 参数指定文件名。
Collate Variant 类型，可选。在打印文档的多份副本时，如果该参数值为 True，则完成打印所有页面后再打印下一份副本。
FileName Variant 类型，可选。该参数表示要打印的文档的路径和文件名。如果忽略该参数，Word 将打印活动文档。（仅应用于 Application 对象）
ActivePrinterMacGX Variant 类型，可选。该参数仅应用于 Microsoft Office Macintosh 版本。有关该参数的详细信息，请参阅 Microsoft Office Macintosh 版本中的语言参考“帮助”。
ManualDuplexPrint Variant 类型，可选。如果该参数值为 True，则表示要在无双面打印组件的打印机上打印双面文档。如果该参数值为 True，则忽略 PrintBackground 和 PrintReverse 属性。使用 PrintOddPagesInAscendingOrder 和 PrintEvenPagesInAscendingOrder 属性可在手动双面打印时控制输出。由于选择或安装的语言支持不同，（例如，美国英语），该参数可能无法使用。
PrintZoomColumn Variant 类型，可选。该参数表示 Word 在一页纸上水平放置的页数。可以是 1、2、3 或 4。与 PrintZoomRow 参数一同使用可在单张纸上打印多页文档。
PrintZoomRow Variant 类型，可选。该参数表示 Word 在一页纸上垂直放置的页数。可以是 1、2、3 或 4。与 PrintZoomColumn 参数一同使用可在单张纸上打印多页文档。
PrintZoomPaperWidth Variant 类型，可选。该参数表示 Word 将打印页面缩放到的宽度，以缇为单位（20 缇 = 1 磅；72 磅 = 1 英寸）。
PrintZoomPaperHeight Variant 类型，可选。该参数表示 Word 将打印页面缩放到的高度，以缇为单位（20 缇 = 1 磅；72 磅 = 1 英寸）。
本示例打印活动文档的当前页面。
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
本示例打印当前文件夹中的所有文档。Dir 函数用于返回所有扩展名为“.doc”的文件名。
adoc = Dir("*.DOC")
Do While adoc <> ""
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
本示例打印活动窗口中文档的前三页。
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
本示例打印活动文档中的备注。
If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.PrintOut Item:=wdPrintComments
End If
本示例将打印活动文档，每张纸上打印六页文档。
ActiveDocument.PrintOut PrintZoomColumn:=3, _
PrintZoomRow:=2
本示例按实际尺寸的 75% 打印活动文档。
ActiveDocument.PrintOut _
PrintZoomPaperWidth:=0.75 * (8.5 * 1440), _
PrintZoomPaperHeight:=0.75 * (11 * 1440)
Top
2 楼MyPlanet（）回复于 2003-11-04 09:45:29 得分 0
Thanks. I tested all options, but could not disable that error message. Is there any way to disable it.Top
3 楼MyPlanet（）回复于 2003-11-05 22:46:04 得分 0
upTop
