在为每行打印副本之前，单元格范围的最后一行和发送值 - 第2部分

Question

我在下面的代码中获得了一些神奇的帮助，这个问题使我能够传输多个值（相对于原始代码段中的一个值）并在打印前将它们转换到指定的范围，但代码仍然需要基本功能进行。

它应该循环遍历每一行并将值传送到每个打印副本的单元格，并且它正在打印每个记录的副本（八个记录=打印时八个副本，这是好的），但值每个副本的每一行都没有被发送（只有八个范围内的最后一个记录的值被转移到所有八个打印副本的单元格）。

Sub Macro1()
   Dim lastRow As Integer '
   Dim r As Integer
   lastRow = Sheets("Employees").Cells(Rows.Count, "A").End(xlUp).Row

   For r = 1 To lastRow
        Sheets("Sheet1").Range("X50:X52").Value = _
            Application.Transpose(Sheets("Employees").Range("A" & r).Resize(, 3).Value)

         ActiveWindow.SelectedSheets.PrintOut
   Next r
End Sub

提前致谢！