工资条问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:54:06
工资条占3行，列中有合并的，也有不合并的，问怎样打印工资条
最好不用宏，

不用宏就手动做嘛
把以下代码放入excel的VBE环境中，按F5运行即可
VBE启动：Alt+F11

Sub PrintSalBar()

Application.DisplayAlerts = False
Sheets.Add , Sheets(1)
Sheets(1).Select
Range("a1:t4").Select
Selection.Copy

Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste

Columns("B:D").Select
Selection.Delete

PrintEvery

Sheets(2).Delete
Sheets(1).Select
Range("A1").Select
Application.DisplayAlerts = True
End Sub

Function PrintEvery()
If Trim(Range("A4")) <> "" Then
Application.Dialogs(8).Show
For i = 5 To Sheets(1).Range("A65536").End(xlUp).Row
Sheets(2).Range("A4") = Sheets(1).Range("A" & i)
Sheets(2).Range("B4") = Sheets(1).Range("E" & i)
Sheets(2).Range("C4") = Sheets(1).Range("F" & i)