Sub 自动打印()
Range("c2") = "第一页"
ActiveSheet.PrintOut '打印
Range("c2") = "第二页"
ActiveSheet.PrintOut '打印
End Sub
在表格中添加一个按钮，指定宏名“自动打印”就行了。
Dim rCell As Range
Dim Arr, m
On Error Resume Next
Set rCell = Worksheets("Sheet1").Range("C1")
'将单元格中的数据有效性序列提取到数组
With rCell.Validation
If .Type = 3 Then
If Range(.Formula1) Is Nothing Then
'当数据有效性序列的来源不是单元格区域时
Arr = Split(.Formula1, ",")
Else
Arr = Range(.Formula1).Value
End If
'批量打印
If IsArray(Arr) Then
For Each m In Arr
If m <> "" Then
rCell.Value = m
Worksheets("Sheet1").PrintOut
End If
Next
Else
rCell.Value = Arr
Worksheets("Sheet1").PrintOut
End If
End If
End With
End Sub
运行后即可将每个员工的资料页依次打印出来。
EXCEL数据有效性里面怎样实现批量打印?如何一键完成打印第一页跟第二...
在表格中添加一个按钮，指定宏名“自动打印”就行了。
关于excel 数据有效性 批量打印的问题
如果是批量打印，可以将数据有效性的序列源（所有姓名）放在表格外某列单元格中，用一个循环语句依次从该列取值到姓名所在单元格，再执行打印命令。如果你自己写的能够打印，只是P2单元格内容不能刷新，可以在打印语句前面加上“Calculate”语句强制刷新试下。
请问EXCEL和WPS如果实现根据数据有效性里的列表批量打印?
如果希望生成一份文档，里面每一页是不同学生的成绩单，可点击“合并到新文档”；如果希望直接打印出来点击“合并到打印机”。请点击输入图片描述
工资审批表+怎么样批量打印同意呈报
所以只要用一段宏，改变C2格的内容并打印当前页就可以了，试试下面代码：Sub自动打印()Range("c2")="第一页"ActiveSheet.PrintOut'打印Range("c2")="第二页"ActiveSheet.PrintOut'打印EndSub在表格中添加一个按钮，
如何使用EXCEL把简单表格的内容导成固定格式表格内容并批量打印???特急...
大体上的方法有二：方法一、使用Excel+Word邮件合并功能就可以了。具体参见有关资料吧。方法二、在Excel 中新建一个要打印的样表，在第一个单元格中使用数据有效性，其他单元格使用查找公式即可。
如何用excel打印卡片
1、打开Excel表格，按住键盘Ctrl键，选择1、3、5……行，在选中的数字中，单击鼠标右键，设置【行高】。2、在刚才点击行高后，弹出来的对话框里，在显示输入框里，用键盘输入【120】行高的数据值，点击鼠标左键，确定即可。3、按住键盘Ctrl键，选择B、D、F……列，在选中的字母中，单击鼠标右键，...
如何用excel打印卡片
1、打开Excel表格，按住键盘Ctrl键，选择1、3、5……行，在选中的数字中，单击鼠标右键，设置【行高】。2、在刚才点击行高后，弹出来的对话框里，在显示输入框里，用键盘输入【120】行高的数据值，点击鼠标左键，确定即可。3、按住键盘Ctrl键，选择B、D、F……列，在选中的字母中，单击鼠标右键，...
EXCEL如何由总表批量打印出个人表
按ctrl,然后再选择你要打印的个人表,就可以,如果要全部打印,那就选择第一个表,然后按住shift,然后再选最后一个表,点打印就可以了
excel怎么改变一个单元格的值后再逐一打印?
要先建一份村、项目名称及项目金额对应表 单位右侧单元格 设置数据有效性 选择 序列 来源 用INDIRECT函数引用对照表中的村所在的列区域（不包括此列的字段名）在A6\\B6中输入VLOOKUP或INDEX+MATCH函数公式即可。请将村、项目名称及项目金额对应表发到397525753@qq.com，我有时间帮你做一下。
怎么把EXCEL中的地址信息打印成一个个小标签用来贴在信封上
1、在Sheet1中按照序号、邮编、收信地址、收信单位、收信人的方式建立发件信息；2、在Sheet2建立信封界面，并在信封界面打印范围外的任一单元格，通过“数据”选项下的“数据有效性”，建立“序号”的下拉列表 3、在Sheet2的相应单元格，将序号所在单元格为查找条件，通过=VLOOKUP(J2,Sheet1!A:E,2...
