哪位高手帮看看 问题出在了哪里 为什么打印结果不正确

free2107

Sub 打印对账单最后一页()
'

  Range("F5:O200").Select

    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106003109831002721"
        Range("F5:O200").Select
         Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
         
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106003129831002860"
     Range("F5:O200").Select
    Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106003129831002984"
      Range("F5:O200").Select
  Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106006109831001548"
     Range("F5:O200").Select
Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106006119831001356"
   Range("F5:O200").Select
  Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106008109831001184"
    Range("F5:O200").Select
Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106008119831001019"
    Range("F5:O200").Select
     Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106009109831001428"
Range("F5:O200").Select
Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
    ActiveSheet.PivotTables("数据透视表1").PivotFields("账号:").CurrentPage = "0106009119831001236"
   Range("F5:O200").Select
  Selection.PrintOut From:=Range("h2"), To:=Range("h2"), Copies:=1
End Sub



这是一段代码，执行时屏幕上显示的是正确的 为什么打印的结果不更新，只是第一项的结果 ，在显示每5项时，打印的才是每2 项的结果，问题出在了哪里，我试过每次都刷新，打印的结果还是不对。 请高手指点一下，问题出在了哪里？先谢谢！！

另外： 每个账号的变化能不能以循环的形式编代码，可以指点一下吗？

free2107

大家可试一下 看看打印的结果  很奇怪的。

mavin

楼主其实只是想打印时将不同的账号分页是吧，感觉不用做透视表也能解决。
可以根据账号这一列，在上下2行不同的地方自动加上分页符。
楼主如果认为这样可以解决的话，我就凑一下代码，给你发个上来。

free2107

不只是分页打印，我是想选取任一账号的任一月份的对帐单，就可以把对账单显示出来。
因为每月都要打印出来，分账号的，所以想用宏的方式一次性完成，我也在别的应用上用过这种方法，好用 ，不知在这个表中为什么出现这种情况。