如何在工具栏上新增四个按钮以实现不同的打印要求？

foshan · 发表于 2005-6-29 14:44

上传的Excel文档中的代码是实现：打开文档后，自定义一个工具栏，里面有四个按钮，是实现根据要求选用本地打印机或网络打印机，在Excel上，代码可行。如何把这此代码放在 word 中，实现同样的功能？谢谢!

sPlLbd6S.rar (6.37 KB, 下载次数: 27)

守柔 · 发表于 2005-6-29 15:09

请foshan兄看一下，我没有实际测试（打印机）

有问题，请及时告诉守柔。

kfi1LpX2.rar (9.48 KB, 下载次数: 38)

foshan · 发表于 2005-6-29 15:16

谢谢守柔版主，遇到问题，请继续援助：

守柔 · 发表于 2005-6-29 15:19

你是指工具栏的位置不对吗？

你直接拖动一下（到你想要的位置），试一下，是由于我在XP中做的，我的工具栏与你有所不同。

foshan · 发表于 2005-6-29 15:24

不是指工具栏的位置不对，而是点击按钮，出现一个对话框，按“确定”后，打印机没有打印(见第3楼的录像)，请版主继续援助，谢谢!

konggs · 发表于 2005-6-29 15:28

老大你改了模块1的内容（正在学习，你改了activedocument...)，模块2的内容没改啊，我直接复制其下。运行可以吗？

守柔 · 发表于 2005-6-29 15:33

我看不到录象,我没这个功能.

你调试一下,或者,CTRL+P,看一下打印机的当前设置(名称)是否正常,正确.

我试了一下,改为本地打印机,均正常,如:

Sub 激光打印机() Application.ActivePrinter = "AGFA-AccuSet v52.3 on LPT1:" ActiveDocument.PrintOut Copies:=1, Collate:=True End Sub '---------------------- Sub 设置激光打印机() Application.ActivePrinter = "AGFA-AccuSet v52.3 on LPT1:" Application.Dialogs(wdDialogFilePrint).Show End Sub '---------------------- Sub 喷墨打印机() Application.ActivePrinter = "AGFA-AccuSet v52.3 on LPT1:" ActiveDocument.PrintOut Copies:=1, Collate:=True End Sub '---------------------- Sub 设置喷墨打印机() Application.ActivePrinter = "AGFA-AccuSet v52.3 on LPT1:" Application.Dialogs(wdDialogFilePrint).Show End Sub '----------------------

foshan · 发表于 2005-6-29 15:51

为什么在 word 中，版主用了以下代码就中增加了一个自定义工具栏和四个按钮？根本就看不到有增加新的工具栏和按钮的代码。请守柔版主明示，谢谢!

[此贴子已经被作者于2005-6-29 15:53:32编辑过]

守柔 · 发表于 2005-6-29 16:12

以下是引用foshan在2005-6-29 15:51:31的发言： 为什么在 word 中，版主用了以下代码就中增加了一个自定义工具栏和四个按钮？根本就看不到有增加新的工具栏和按钮的代码。请守柔版主明示，谢谢!

请foshan兄参考一下这个链接:

http://club.excelhome.net/viewthread.php?tid=77749

WORD中的自定义工具栏和自定义命令,要比EXCEL中方便得多.

foshan · 发表于 2005-6-29 16:30

以下是引用守柔在2005-6-29 16:12:20的发言：
请foshan兄参考一下这个链接:
http://club.excelhome.net/viewthread.php?tid=77749
WORD中的自定义工具栏和自定义命令,要比EXCEL中方便得多.

长见识了，谢谢守柔版主!但就是不能打印。我用的是 win-xp + office2003。另外，如果我想制成加载宏，让所有的 word 文档均能根据不同的需要选择打印机进行打印，又应如何修改代码，谢谢!

		自动登录	找回密码
密码			免费注册