使用VBA从Word中打印文档时,可以选择该文档应该从哪个打印机纸盘中获取纸张。在Excel中,您没有机会像在Word中一样设置属性FirstPageTray或OtherPagesTray。使用SendKeys可以创建一个简单的解决方案。

这是两个示例宏:

Sub ChangeTray()

' selects the manual page tray without printing

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~{ESC}", True

End Sub

Sub ChangeTrayAndPrint()

' selects the manual page tray and prints the selected sheet(s)

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~~", True

End Sub

上面的示例宏将与Excel97的挪威语版本以及佳能Bubblejet打印机一起使用。

使用SendKeys传输的文本字符串的内容可能在计算机之间不同,具体取决于Excel的版本和已安装的打印机。您必须编辑上面的宏才能使它们在您的计算机上工作。

您将在VBA的内置帮助中找到替换特殊功能键的特殊字符的完整列表,在模块中键入SendKeys,选择单词并按F1键。