用循環(huán)處理就行了
Sub 打印()
Sheets("sheet1").Select
For i = 1 To 15
s = 1
'將sheet2A:O列數(shù)據(jù)裝入sheet1表
For k = 1 To 5
For h = 1 To 3
Cells(k, h) = Sheets("sheet2").Cells(i, s)
s = s + 1
Next
Next
'打印
ActiveWindow.SelectedSheets.PrintOut '調(diào)用打印命令打印當(dāng)前頁(yè)
Next
End Sub