求助，请老师帮忙看打印的问题

完美交易88

程序想从F2单元格开始，先设置F2为打印区域，按e2单元格内的数量为打印数量打印，然后设置F3为打印区域并打印，直到大于N时停止，目前能按e列数量打印，但所有打印的内容全是F2的内容，不知道哪的问题
Sub 打印()

   Dim i, c As Integer
   
   n = Range("b65536").End(xlUp).Row
   c = 2
   
For i = 2 To n
   If c <= n Then
      Application.DisplayAlerts = False   
      ActiveSheet.PageSetup.PrintArea = "$f$" & c   '设置打印区域

      Sheet1.PrintOut Copies:=Range("e" & c), Collate:=True, IgnorePrintAreas:=False  
      c = c + 1
   
   End If
Next
End Sub

砂海

单步运行 , 追踪 c 与 n 的值