求实操大牛帮忙设置 ”保密工资三联单“ 打印格式

/dy小晓/dy

公司人员已超过千人，再按照老师傅的用订书钉钉工资单，估计手指要废了。

所以研究了用邮件合并打印保密三联单

硬件软件：  打印机：LQ — 635K  操作：office 2010


邮件合并做好了，但是卡在了打印页面这


出现的问题主要是：  在打印多条后，页面上下间距不齐，第N个人的数据打到第N+1个人的保密单上去了，即排版问题。


求实操大牛帮忙设置  ”保密工资三联单“ 打印格式

现附上图片与文件样本
工资文件邮件合并.rar (52.33 KB, 下载次数: 50)

2014-12-30 10:20 上传

点击文件名下载附件

sunya_0529

批量套打可以直接在Excel中完成，打印出来的效果如下图所示——

在Excel里，要微调上下左右以及三条记录间的间距，通过调整相应的行高或列宽就可以了，如下图所示——


添加了一个简单的宏来完成批量打印，宏代码如下——

1. Option Explicit
   
2. 
   
3. Private Sub cmdPrintOut_Click()
   
4. Dim str, i%
   
5. str = InputBox("请输入要打印的工号，否则打印全部记录！", "温馨提示：")
   
6. With ActiveSheet
   
7.   If Len(str) = 0 Then '打印全部记录
   
8.     For i = 2 To Sheet1.UsedRange.Rows.Count Step 3
   
9.       .[C2] = Sheet1.Cells(i, 2)
   
10.       .PrintOut
    
11.     Next
    
12.   Else '打印指定工号及其后共三条记录
    
13.     .[C2] = "'" & str
    
14.     .PrintOut
    
15.   End If
    
16. End With
    
17. End Sub

复制代码

特别提醒：测试时，请使用虚拟打印机，或者只打印一条记录，以防止全部打印时浪费纸张。

附件包含宏代码，打开时需要“启用活动内容”，否则打印功能无法实现。