怎样实现一次预览多页

excel201

请看我下面这一段代码：
Private Sub CommandButton1_Click()
    For i = Range("d5").Value To Range("d6").Value
        Range("b5").Value = Sheets("Sheet1").Cells(i + 1, 2).Value
        Range("b6").Value = Sheets("Sheet1").Cells(i + 1, 4).Value
        Range("b7").Value = Sheets("Sheet1").Cells(i + 1, 5).Value
       ActiveWindow.SelectedSheets.PrintPreview
   Next i
      
End Sub

我的设想和目标：在sheet1中输入联系人的姓名、工作单位、地址等信息；在sheet2中做了一张联系卡模板；sheet2 中的单元格d5和d6是数字，是准备打印的开始记录号和结束记录号，按下打印按钮后能预览从d5到d6条记录的相关信息。

现在碰到的问题：一条记录跳出一个预览界面；如何修改代码实现多条记录只在一个预览界面中出现，可通过上一页、下一页导航按钮来实现前后查看记录？

ui

把多条记录刚好做在一个页里面

pureshadow

ActiveWindow.SelectedSheets.PrintPreview和NEXT I换一下

excel201

3# pureshadow

位置调换后，只能打印最后一条记录，前面的记录打印不了