In và đánh số trang nhiều file, nhiều sheet một lượt

[Chuotdong]

Chào các bạn, mình có khoảng hơn chục file Excel tên là ten1.xls, ten2.xls,......teni.xls.....
trong mỗi file teni.xls có nhiều sheet tên khác nhau.
Mình muốn in một lần tất cả các file và sheet đó, đánh số trang lúc in ra sao cho tự động liên tục nhau.
Có cách nào tự động và nhanh không vậy ? Sheet đầu trong file đầu được đánh số trang bằng tay rồi, các sheet còn lại để số trang Auto

 

[befaint]

đánh số trang lúc in ra sao cho tự động liên tục nhau.

Bước 1:
Chỉ đánh số trang vào tờ giấy trắng.

Sub OánhSôTrang()
    Const sotrang As Long = 1000 '1000 ban in
    For i = 1 To sotrang Step 1
        With Sheet1 'ActiveSheet
            .Range("G30").Value = "Trang " & i
            .Range("A1:G30").PrintOut 'In ngay
            'Vung in "A1:G30", chi oánh sô trang'
            '.Range("A1:G30").PrintPreview 'xem truoc
        End With
    Next i
End Sub

Bước 2: Cho số giấy vừa làm ở bước 1 vào máy in rồi in cái cần in.
Xong

 

[huuthang_bd]

Đi tong khay giấy rồi