如何使用 vb.net 设置打印机属性

Question

我正在使用EDRAW 浏览Microsoft Word，可以是Print , Preview , ETC..。我计划为其添加一些功能。我为 Print Short (8.5 by 11 inches) 和 Print Long (8.5 by 13 inches) 添加了 2 个按钮，并且我有 2 台长短打印机。如何在每个按钮中设置打印机的属性？如果我单击短按钮，它将使用与长按钮相同的打印机 1 打印短，但它在打印机 2 中。

我正在关注上面提供的链接中的代码。

有人知道吗？任何建议都会有所帮助并被接受。谢谢..干杯..两天后我会给它50赏金..

编码为@Hadi 请求

这是我的打印按钮代码。

Private Sub btnPrint_Click(sender As System.Object, e As System.EventArgs) Handles btnPrint.Click
    AxEDOffice1.SetActivePrinter("Printer Name")
    AxEDOffice1.ActiveDocument.PageSetup.PaperSize = Microsoft.Office.Interop.Word.WdPaperSize.wdPaperA4
    AxEDOffice1.PrintDialog()
End Sub

在AxEDOffice1.ActiveDocument.PageSetup.PaperSize = Microsoft.Office.Interop.Word.WdPaperSize.wdPaperA4的行代码中得到一个错误Object variable or With block variable not set

Answer 1

检查完库后，您只需使用SetActivePrinter 方法更改您的默认打印机，如下所示：

 AxEDOffice1.SetActivePrinter("Adobe PDF")

要更改 PaperSize，您必须使用以下内容

AxEDOffice1.ActiveDocument.PageSetup.PaperSize = Microsoft.Office.Interop.Word.WdPaperSize.wdPaperA4

AxEDOffice1.ActiveDocument 是Microsoft.Office.Interop.Word.WordDocumentClass 的一个实例

代码对其进行了测试，它工作正常。

编辑 1：

对象变量或未设置块变量

在MSDN article 上阅读更多相关信息，有很多建议。

编辑 2：

要直接打印文档而不显示PrintDialog，您必须使用PrintOut 函数。

AxEDOffice1.PrintOut(EDOfficeLib.WdPrintOutRange.wdPrintAllDocument)

Answer 2

看起来Change printername in PrintDialog through code 处理确保打印对话框根据 vb.net 中的打印机名称预先选择打印机。