VB2010 使用printout和printoutex打印到pdf

编程目的：使用printout和printoutex控件将Excel和word批量打印为PDF。
问    题：已经实现打印为PDF，但需要弹出窗口，对文件路径进行选择，对文件名进行命名。
          现在希望能够实现，点击打印后，不需要弹出窗口，直接自动打印为PDF。
          通过printout和printoutex控件已经可以生成PDF，但无法打开，出现如图问题
          希望大神可以解决，代码如图，急需，万分感谢