MS Word页面设置对话框

Question

我需要页面设置对话框的帮助.. 有什么方法可以使用vb.net将一些值传递给openpagedialog。

我的代码是

Dim dialog As Word.Dialog = Globals.ThisAddIn.Application.Dialogs(Word.WdWordDialog.wdDialogFilePageSetup)
            dialog.DefaultTab = WdWordDialogTab.wdDialogFilePageSetupTabPaper

            dialog.Show()

我需要在此对话框打开时自动选择托盘...

Answer 1

我不知道这是否有效，因为我的打印机只有一个托盘。 如果这是对的，请告诉我

....
Dim wd as Word.Application = new Word.Application()
Dim doc As Word.Document = wd.Documents.open("yourdoc.doc")
doc.PageSetup.FirstPageTray = Word.WdPaperTray.wdPrinterMiddleBin
wd.Visible = true
Dim dialog As Word.Dialog = wd.Dialogs(Word.WdWordDialog.wdDialogFilePageSetup)
dialog.DefaultTab = Word.WdWordDialogTab.wdDialogFilePageSetupTabPaper
dialog.Show()
....

基本上我将托盘设置在当前文档的PageSetup上。当我打开对话框时，从当前文档数据中选择托盘。