Lập trình In liên tục theo page area trong pivottable như thế nào?

[vuha]

Mình có 1 pivottable report, mình muốn in liên tục theo từng page area là KH thì phải lập đoạn code hay macro như thế nào. Nhờ các bạn giúp gấp với.
Mình đã lập 1 đoạn code như sau nhưng chưa đúng nên lệnh in không dừng và khi M1 thay đổi thì Tên KH không thay đổi theo mà Tên KH để trống nên pivottable report chẳng có gì cả. Chẳng hiểu thế nào nữa.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 25/11/2010 by thu ha
'
'
For Each cell In Sheet3.Range("TenKH")
Sheet6.Range("M1") = cell
ActiveSheet.PivotTables("PivotTable1").PivotFields("KH").CurrentPage = _
M1
Range("B3").Select
Selection.AutoFilter Field:=2, Criteria1:="=*total", Operator:=xlAnd, _
Criteria2:="<>grand*"
Selection.AutoFilter Field:=6, Criteria1:=">0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub
Hic, chờ mãi không thấy ai giúp nhưng cảm ơn các bạn đã đọc chủ đề này. Mình có cách rồi.