Tự động thêm dòng đếm số lần đã in trong bảng tính

[jacker007]

Mình cần đánh số lần đã in của bảng in giống như in hóa đơn vậy, in lần 1 thì có dòng in lần 1 ở góc, mỗi lần đặt lệnh in thì tự động đánh số thứ tự. Mong mọi người giúp đỡ.
Cám ơn nhiều !!!

 

[vanle33]

Mình cần đánh số lần đã in của bảng in giống như in hóa đơn vậy, in lần 1 thì có dòng in lần 1 ở góc, mỗi lần đặt lệnh in thì tự động đánh số thứ tự. Mong mọi người giúp đỡ.
Cám ơn nhiều !!!

Theo tôi là để lặp lại "số lần đã in" bằng Header hay Footer là không được. Có lẽ phải dùng cót két mới được.

 

[jacker007]

Nếu như header và footer bị hạn chế thì 1 dòng ở trên ở trên cùng hoặc dưới cùng bảng tính cũng được, miễn sao có thể đếm được số lần đã in ra. Mình tìm thấy code này, nghĩ là có thể áp dụng trong trường hợp này, nhưng nếu có thể ko dùng code là tốt nhất:

Sub workbook_open()
Sheet1.Unprotect
[B1] = [B1] + 1
Sheet1.Protect
ActiveWorkbook.Save
End Sub

 

[jacker007]

Mình dùng code này thì có thể đếm được nhưng phải in bằng cách chạy marco thì mới đếm, in bình thường nó ko đếm. Không biết có cách nào khác ko

Sub workbook_open()
Sheet1.Unprotect
[B1] = [B1] + 1
Sheet1.Protect
ActiveWorkbook.PrintOut
End Sub