In PivotTable một cách tự động

[susubambi]

Em đang dùng bảng pivot để báo cáo mỗi ngày theo file đính kèm. Em thay đổi số thứ tự trong sheet report và in từng trang. Xin cho em hỏi có cách nào in tự động mỗi trang nhiều số thứ tự được không, ví dụ hôm nay in từ số thứ tự 2 đến 9, ngày mai từ 10 đến 50 ...? Hiện tại mỗi lần in là phải gõ số vào STT để thay đổi rất vất vả và dễ sót, dễ nhầm. Em cám ơn nhiều.

Xin lỗi em đính kèm file không được. Nhưng cho em hỏi là để in nhiều trang liên tục của một bảng pivot khi minh thay đổi ở page area mà không cần phải thay đổi bằng cách thủ công thì mình có cách nào không ạ?

 

[susubambi]

Em xin gửi lại file đính kèm.

 

[susubambi]

Cho mình hỏi tiếp cách giải quyết khó khăn trên. Mình tạo một macro như dưới đây để in. Điều mình cần là các số 4096, 4097, 4098, hoặc sau này là 5010, 5011, 5012, 5013... hoặc hơn nữa, v.v... sẽ được nhập trước vào một cell hoặc một popupbox cũng được. Nghĩa là mình muốn in từ khoảng 5113 đến 5128, thì mình chỉ cần nhập 2 số đầu và số cuối 5113 và 5128 thì nó sẽ tự động in từ 5113, rồi 5114, 5115... đến 5128 mà không cần phải nhập vào currentpage của pivottable nữa. Mình không rành lắm về VBA. Rất mong được trả lời. Cám ơn nhiều.



Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.PivotTables("coversheet").PivotCache.Refresh
ActiveSheet.PivotTables("coversheet").PivotFields("bango").CurrentPage = "4096"
ExecuteExcel4Macro "PRINT(1,,,1,2,,,TRUE,,FALSE)"
ActiveSheet.PivotTables("coversheet").PivotFields("bango").CurrentPage = "4097"
ExecuteExcel4Macro "PRINT(1,,,1,2,,,TRUE,,FALSE)"
ActiveSheet.PivotTables("coversheet").PivotFields("bango").CurrentPage = "4098"
ExecuteExcel4Macro "PRINT(1,,,1,2,,,TRUE,,FALSE)"
End Sub