| 编辑宏运行Word 2003，执行“工具→宏→录制新宏”命令，在录制宏对话框中输入宏名为“经济打印”，点击“工具栏”按钮，从弹出的自定义对话框中把“命令(D)”列表框中的宏“Normal.newMacros.经济打印”拖到工具栏上，右击工具栏上的“Normal.newMacros.经济打印”按钮，把“命名”中的名字改成“经济打印”，关闭自定义对话框，再迅速单击“停止”工具栏中的“■”图标停止录制宏。选择“工具→宏→宏”，在“宏”窗口中选中我们刚才录制的宏“经济打印”，单击“编辑”按钮进入编辑界面，然后在窗口右面的编辑窗口中编辑输入下面的宏代码，以单引号(')开头的行为注释，可不输入。Sub 经济打印() 透明度 = InputBox("请输入节墨系数(0.11-0.99)数值越小越省墨:", "经济打印", "0.7")' 弹出对话框要求输入透明度即节墨系数，默认为0.7即70%。 Documents.Add Template:=ActiveDocument.Name' 新建一份和当前文档完全一样的新文档。 页宽 = ActiveDocument.PageSetup.PageWidth 页高 = ActiveDocument.PageSetup.PageHeight 页数 = ActiveWindow.ActivePane.Pages.Count 计数 = 0' 获取文档的页宽、页高、页数等数据，开始计数。画矩形: ActiveDocument.Shapes.AddShape(msoShapeRectangle, 10#, 10, 页宽 - 20#, 页高 - 20).Select' 画一个与各页边均保持10磅距离的矩形并选中。 Selection.ShapeRange.Fill.Transparency = 透明度 Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)' 填充色为白色。 Selection.ShapeRange.Line.Visible = msoFalse' 无边线色。 计数 = 计数 1 If 计数 < 页数 Then Application.Browser.Next ' 跳到下一页。 GoTo 画矩形 End If ActiveDocument.Saved = True' 将文档状态设置为未更改，这样下面关闭此文档时，Microsoft Word 将不提示保存。 ActiveDocument.PrintOut' 打印文档。 ActiveDocument.Close' 关闭文档。End Sub |
|小黑屋|最新主题|手机版|微赢网络技术论坛
( 苏ICP备08020429号 )
GMT+8, 2024-9-29 17:22 , Processed in 0.241635 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.
