...连续打印:Sheet1中有A1:C5这15个单元格,Sheet2中有A1:O1这15列数 ...
发布网友
发布时间：2023-11-21 19:53
共1个回答
热心网友
时间：2024-03-27 09:30
Sub 打印()
Sheets("sheet1").Select
For i = 1 To 15
s = 1
'将sheet2A:O列数据装入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 '调用打印命令打印当前页
Next
End Sub
