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

守柔

TO foshan兄,请你将出现的问题,直接贴图片,我看不了动画.

另外,我觉得代码应该没有什么问题,即然EXCEL中通过了,WORD中也应该可以,你出错在哪一步?打印对话框出来了吗?

关于加载宏,你只要另存为模板就行了,置于指定的启动文件夹下,可自动加载.

部分相关链接,请参http://club.excelhome.net/dispbb ... id=65559&skin=0

FENGJUN

守柔斑竹有教学录像的：

http://club.excelhome.net/dispbbs.asp?boardid=23&star=3&replyid=313737&id=65559&skin=0&page=1

asdf1001

Sub Macro1()

With ThisDocument.CommandBars.Add .Visible = True .Position = msoBarTop .Name = "打印组合" With .Controls.Add(Type:=msoControlButton) .FaceId = 2521 .TooltipText = "激光打印机" .Visible = True .OnAction = "激光打印机" End With End With End Sub Sub 激光打印机() Application.ActivePrinter = "打印机名称" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub

foshan

守柔版主：我点击新建工具栏上四个按钮当中的任何一个按钮，均出现如下的对话框，按“确定”后，对话框消失，但就是不能打印。

foshan

终于找到原因所在：在 win-xp + office 2003 中，要将代码中的“在”替换成“on”，就可实现打印了。