title: Label caption changes only once
body: <p>I am trying to print out a table into a sheet which has an image with some activex labels on it. As the pages change, I want the label captions to change too and reflect the data in the table. But what is happening is that only the first page is getting printed and the others are not. My MsgBox seems to get the right data but during printing it is just printing the first page. Is it even possible to print out sheets within a for loop? I tried to run the code one page number at a time and it prints out just fine. But when I am looping through page numbers, it prints out only the first page over and over again.  </p>
  
  <p>Here's my code.  </p>
  
  <pre><code>    Dim temp As String
      Dim rowlast As Integer
      Dim page As Integer
  
      rowlast = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
      'MsgBox WorksheetFunction.RoundUp((rowlast - 1) / 4, 0)
      For page = 1 To WorksheetFunction.RoundUp((rowlast - 1) / 4, 0)
          'Msgbox for first entry in current page
          Label1.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2, 1)
          MsgBox Label1.Caption
          Label3.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 1, 1)
          Label5.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 2, 1)
          Label7.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 1)
          Label2.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2, 2)
          Label4.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 1, 2)
          Label6.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 2, 2)
          Label8.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 2)
          Label9.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2, 3)
          Label10.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 1, 3)
          Label11.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 2, 3)
          Label12.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 3)
          Label13.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 5)
          Label14.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 5)
          Label15.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 5)
          Label16.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 5)
          Label17.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 4)
          Label18.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 4)
          Label19.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 4)
          Label20.Caption = Sheets("Data").Cells(((page - 1) * 4) + 2 + 3, 4)
          'MsgBox "OK"
          Sheets("Card Print").PrintOut
      Next page
  </code></pre>
  
  <p>Here's my table:  </p>
  
  <p><a href="https://i.stack.imgur.com/XVUyI.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/XVUyI.jpg" alt="enter image description here"></a></p>
  
  <p>Here's my output sheet:  </p>
  
  <p><a href="https://i.stack.imgur.com/AZxn8.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/AZxn8.jpg" alt="enter image description here"></a></p>