标签标题只更改一次

我试图打印出一张表，其中有一个图像与一些ActiveX的标签。 随着页面的改变，我希望标签标题也改变，并反映在表格中的数据。 但是现在发生的事情是，只有第一页被打印，而其他的不是。 我的MsgBox似乎得到正确的数据，但在打印时，它只是打印第一页。 甚至有可能在for循环中打印出工作表？ 我试图一次运行一个页码的代码，它打印出来就好了。 但是当我循环浏览页码时，它只会一遍又一遍地打印出第一页。

这是我的代码。

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 

这是我的桌子：

这是我的输出表：