excel模仿word邮件合并输出xls文件或打印

Sub print()

for i= range("k6") to range("k7")
range("m3")=i
activeSheet.printout
next i

End Sub


Sub copybook()

Dim cb As String
For ii = 1 To 100    
cb = Right(Str(100 + ii), 3)    
ActiveWorkbook.SaveAs Filename:="D:\01\" & cb & ".xls", FileFormat:=xlNormal,_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False   
Next ii

End Sub