Excel应用实践04：分页单独打印Excel表中的数据

Sub printAllDatas()
    '数据记录工作表变量
    Dim wksDatas As Worksheet
    '模板工作表变量
    Dim wksTable As Worksheet
    '数据记录工作表中最后一行变量
    Dim lngLastRow As Long
    '循环变量
    Dim i As Long
    '将工作表赋给相应的变量
    Set wksDatas = Worksheets("数据")
    Set wksTable = Worksheets("表格模板")
    '获取数据记录工作表最后一行行号
    lngLastRow = wksDatas.Range("A"& Rows.Count).End(xlUp).Row
    '遍历数据记录工作表中数据行
    '将相应数据填入模板工作表
    For i = 2 To lngLastRow
        '将数据工作表中的数据填入模板
        With wksDatas
            wksTable.Range("B3") =.Range("A" & i)
            wksTable.Range("F3") =.Range("B" & i)
            wksTable.Range("B4") =.Range("C" & i)
            wksTable.Range("D4") =.Range("D" & i)
            wksTable.Range("F4") =.Range("E" & i)
            wksTable.Range("B5") =.Range("F" & i)
            wksTable.Range("F5") =.Range("G" & i)
            wksTable.Range("B6") =.Range("H" & i)
            wksTable.Range("F6") =.Range("I" & i)
            wksTable.Range("B7") =.Range("J" & i)
            wksTable.Range("B8") =.Range("K" & i)
        End With
        '打印
        wksTable.PrintOut
    Next i
End Sub