vba分栏打印代码

'excel中可以使用的VBA代码，用来分栏

Sub printbiao() '分栏打印
l = 5 '**** 数据的列数 *****
m = 31 '*** 打印时每栏的行数 ****
For i = 1 To l '写打印表的表头
Cells(1, i) = Sheet1.Cells(1, i)
Cells(1, l + 1 + i) = Sheet1.Cells(1, i)
Next i '写打印表的表头
a = 2 '原始表中当前数据的行号
b = 2 '打印表中当前数据的行号
Do While Sheet1.Cells(a, 1) <> ""
For i = 1 To l
Cells(b, i) = Sheet1.Cells(a, i)
Cells(b, l + 1 + i) = Sheet1.Cells(a + m, i)
Next i
If Int((a - 1) / m) = (a - 1) / m Then
a = a + m + 1
Range("A" & b + 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Else
a = a + 1
End If
b = b + 1
Loop
End Sub