wps宏打印代码

word的工具栏里没有提供给“打印当前页”的命令，只能从“文件”菜单中选择“打印”，再选“当前页”，比较不方便。但是我们可以通过“宏”，自己设计这么一个功能。

宏代码如下，两段代码都可以实现“打印当前页”。前一种，d出“打印”对话框，自动选择了“打印当前页”，最后需要自己点击“确定”键。后一种，不会d出对话框，而是直接打印了。

可以将这个功能手动放到工具栏上，随时使用。

Sub 打印当前页() With Dialogs(wdDialogFilePrint)

.Range = wdPrintCurrentPage

.Show

End With End Sub

Sub 打印当前页() Application.PrintOut FileName:="", Range:=wdPrintCurrentPage End Sub 当然，还有一种不需要编写代码的方法，就是 *** 作一遍“打印当前页”的过程，录制成宏。

WPS表格批量打印一个模板变动具体 *** 作流程如下：

一、首先，将想要打印的数值放在sheet1表中的第一列。

二、然后新建一个表名为“打印表的”表格，后面打印代码里提到的“打印表”就是这一张。所以批量打印处理的表格也是对应这一张，这个在后面代码中会明确看到。

三、打印表中框住的位置是打算打印时对应的模板部位，在第1行第3列位置，读者可根据实际情况修改，并在之后代码中修改参数。

四、之后进入到开发工具->VB编辑器。

五、在左侧栏目中找到打印表，右键插入模块。

六、将代码放入d出的模块窗口。

七、点击上方三角形运行代码。

八、选中跟函数一样名字的“批量打印”，点击右侧运行。

九、d出窗口，输入想要开始打印的在Sheet1表中的行数，我这里选择了2，点击确定，d出窗口；输入结束行，我输入了3，那么这段代码将批量打印出Sheet1中从2-3行的数据，分别套入到固定模板中打印出来即可。

1、编辑好你的送货单，在名称框输入：A10000——回车；

2、在A10000单元格内输入：1——按Ctrl+Home回到页首；

3、菜单栏——视图——页眉和页脚——出现“页眉/页脚”对话框——自定义页眉——出现“页眉”对话框——点“页码”（第2个，按钮是纸上一个#）——确定；

4、页面设置——工作表——打印标题——顶端标题行：输入表格区域，如$1:$20（$20为表格最后一行）；

5、点“打印”——（d出“打印内容”对话框）——页码范围——页：输入1～100（或更多）——确定（但先不要打开打印机）

6、工具栏——打印预览——滚动页面看看页码是否符合要求，再适当调节位置（在页码之前增加回车符或空格），或页码不足需要，可增加最下行加以解决。

---