word设置了宏如何打印,设置,打印

1.WORD录制一个宏,想实现每一页都单面打印

使用循环，把每一页单独输出到打印机。以下代码没有测试，谨供参考。

Dim lgTotalPages As Long, cx As Long

lgTotalPages = ThisDocument.ActiveWindow.Panes(1).Pages.Count

For cx = 1 To lgTotalPages

ActiveDocument.PrintOut from:=cx, to:=cx

Next

2.如何为Word 2010编写宏实现快速打印当前文档页?

在Word2010中，要打印当前文档的当前页，需要如此操作：单击“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，再单击“打印当前页”，最后单击“打印”，方才完成该项任务。

这反而没有在Word2007或Word 2003中来得简单。如果你经常要打印文档的当前页，那么把该功能录制成一个宏，并将其添加到快速访问工具栏。可以快速提高工作效率。下面我们就一起对打印当前页功能的编写一个“宏”。

录制打印当前页宏

1.切换到“视图”选项卡，在“宏”组中，单击“宏”，再单击“录制宏”。

2.在“宏名”下的框中，键入宏的名称，比如键入“打印当前页”；在“将宏保存在”框中，确认选择的是“所有文档（Normal.dotm）”；在“说明”框中，可以键入对宏的说明，然后单击“确定”按钮开始宏录制过程。

3.切换到“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，并单击“打印当前页”，最后单击“打印”。

4.切换到“视图”选项卡，在“宏”组中，单击“宏”，再单击“停止录制”，结束录制宏。

添加到快速访问工具栏

1.用右键单击快速访问工具栏，在弹出的快捷菜单中，单击“自定义快速访问工具栏”。

2.在“从下列位置选择命令”下的框中，单击“宏”，然后在其下的宏列表中，单击“Normal.NewMacros.打印当前页”；单击“添加”按钮；在右面的列表框中，确认选择的是“Normal.NewMacros.打印当前页”，然后单击下面的“修改”按钮。

3.在“符号”列表框中，单击一个喜欢易记的图标，比如打印机形状的图标；在“显示名称”框中，将“打印当前页”前的“Normal.NewMacros.”删除。

4.依次单击“确定”按钮，关闭各对话框。

至此，在快速访问工具栏中便出现一个名为“打印当前页”的按钮了。只要单击该按钮，即可只打印当前文档的当前页，即插入点所在的页面。使用非常方便。

3.在word中如何建立一个宏让页码打印一张加一个数

在word的工具-宏-宏。

.中新建名为 MyPrint 的宏命令，然后单击创建，把代码框中的内容全部清空后，将如下代码原样粘贴进来保存即可，然后运行该宏即可实现你的目的（注意：如果你以后打印时，不是默认打印3张，而是其他张数，你得再次打开宏命令对话框，选择MyPrint宏名，然后单击编辑，打开代码窗口，将For后面的数字3修改为你本次所希望的打印份数后保存即可。注意：本宏的适用条件是——该Word文档只有一页，且在执行该宏之前得必须先人工在页脚处插入页码不然打印出来的第一页是没有页码的但随后的就自动有页码了。）

Sub MyPrint() For i = 1 To 3 '这里的3指的是你本次打印希望打印多少张，如果需要打印100张，将3改成100即可，其他不用动，依次类推。 ActiveDocument.PrintOut '向打印机发送打印内容和指令 waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3） '获得本次打印指令发送的时刻加上延时秒数作为参照 '由于打印一份需要几秒钟时间，每发送一次打印指令，延时3秒，根据打印机速度可调节打印延时数，最多延时6秒，这里延时指定为3秒。

Do While Time < waitTime '空循环，延时未到继续延时的目的 '每打印一张延时3秒 Loop '以下为打开Word的插入页码对话框和设置页码起始页的对话框对页码进行每打印一页自动将页码加1的设置操作，但是由于采用了VBA来实现，这两个对话框是不显示出来的 With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = . = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen . = True .StartingNumber = .StartingNumber + 1 '每打印一页，页码自动加1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ , FirstPage:=True Next i End Sub。

4.有一份WORD2文档在打印时出现了该工程的宏被禁用,如何解决

1. 打开word文档，这篇word文档文档中的内容是来自百度经验的帮助信息，然后添加了一个百度logo的背景，这些不是重点，下面来开始进入正题，点击菜单栏的“文件”。

2.打开word文档的系统设置页面，从左边的列表中可以看到有很多的设置功能项，最下面的“选项”里面有要设置的宏的功能，点击“选项”。 3.点击“选项”后，打开“word选项”设置对话框，在这里也可以进行很多种设置，点击最下面 “信任中心”，信任中心中有我们要设置的宏的相关功能 4.打开“信任中心”设置分项后，再点击右边的“信任中心设置。”

按钮，宏的设置功能隐藏的实在太深了，不费一翻周折，还真难找到。 5.点击“信任中心设置。”

按钮后，就打开“信任中心”设置对话框，只能现在的word提供的功能太多了，要花很长时间才能找到要用的工具，要使用的是“宏设置”。 6.在左边设置菜单列表中点击“宏设置”，打开关于宏的设置项，默认状态是“禁用所有宏，并发出通知”，这个设置的表示，当打开一个包含有宏的word文档时，默认是禁用宏功能的，但是系统会弹出一个提示框，告诉这个word文档有宏的功能。

7.是要关闭宏功能，所以选择最上面的“禁用所有宏，并且不通知”，进过这个设置后，不仅可以禁用宏，而且在打开有宏功能的文档时也不会弹出提示信息。

5.用word 宏 实现快速打印10个双面文档

我知道一种就是先打单页，再重放进去打反面的.第一步：启动Excel 2003（其他版本请仿照操作），执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态

第二步：在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块

小提示

“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”：在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框（如图2），输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步：双击“模块1”进入代码输入区域，将下述代码输入其中：

Sub dy()

On Error Resume Next

x = ExecuteExcel4Macro("Get.Document(50)")

For i = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1

Next i

MsgBox "请将打印出的纸张反向装入纸槽中"， vbOKOnly， "打印另一面"

For j = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j

Next j

End Sub

第四步：输入完成后，关闭Visual Basic编辑窗口返回。

添加按钮

第一步：执行“工具→自定义”命令，打开“自定义”对话框

第二步：切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。

第三步：单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称（如“双面打印”，并选中“总是用文字”选项。

第四步：在不关闭“自定义”对话框的情况下，右击工具栏上刚才添加的“双面打印”按钮（参见图3），在随后弹出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框（

第五步：选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回Excel编辑状态。

双面打印

启动Excel，打开需要双面打印的工作簿文件，单击“双面打印”按钮，系统先将奇数页打印出来，然后弹出如图5所示的提示框，将打印的纸张反向装入打印机的纸槽中，按下“确定”按钮，即可将偶数页打印到另一面上，达到双面打印的目的。

我就是这样做的，还蛮好的.