In hàng loạt File Excel có cấu trúc giống trong cùng 1 folder.

[chuot0106]

Mình có 1 file học bạ của rất nhiều hs trong lớp, giờ mà in thủ công thì mất rất nhiều thời gian. Mình muốn nhờ các anh, chị, em trên GPE giúp mình có cách nào để có thể in được 2 trang học bạ ở sheet "8A2" bằng máy in 1 mặt hoặc 2 mặt với ạ, Cảm ơn các anh chị em ạ!

 

[snow25]

Mình có 1 file học bạ của rất nhiều hs trong lớp, giờ mà in thủ công thì mất rất nhiều thời gian. Mình muốn nhờ các anh, chị, em trên GPE giúp mình có cách nào để có thể in được 2 trang học bạ ở sheet "8A2" bằng máy in 1 mặt hoặc 2 mặt với ạ, Cảm ơn các anh chị em ạ!

Thử code này.Bạn tải file này về rồi đặt ở trong Folder các file cần in rồi bấm chạy code.

Sub inhocba()
Application.ScreenUpdating = False
    Dim i As Long, ObjFile, Wb As Workbook, Fso As Object, StrFolder As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    StrFolder = ThisWorkbook.Path
    For Each ObjFile In Fso.GetFolder(StrFolder).Files
        If Fso.GetExtensionName(ObjFile) Like "xls*" Then
           If ObjFile.Name <> "in" Then
              Set Wb = Workbooks.Open(ObjFile)
              'Wb.Sheets("8A2").PrintPreview
              Wb.Sheets("8A2").PrintOut
              Wb.Close
           End If
        End If
    Next
    Set Fso = Nothing
Application.ScreenUpdating = True
End Sub

 

[chuot0106]

Thử code này.Bạn tải file này về rồi đặt ở trong Folder các file cần in rồi bấm chạy code.

Sub inhocba()
Application.ScreenUpdating = False
    Dim i As Long, ObjFile, Wb As Workbook, Fso As Object, StrFolder As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    StrFolder = ThisWorkbook.Path
    For Each ObjFile In Fso.GetFolder(StrFolder).Files
        If Fso.GetExtensionName(ObjFile) Like "xls*" Then
           If ObjFile.Name <> "in" Then
              Set Wb = Workbooks.Open(ObjFile)
              'Wb.Sheets("8A2").PrintPreview
              Wb.Sheets("8A2").PrintOut
              Wb.Close
           End If
        End If
    Next
    Set Fso = Nothing
Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nhé, mình thử và sẽ phản hồi lại cho bạn luôn!

 

[befaint]

Wb.Sheets("8A2").PrintOut

Nên kiểm tra tên sheet đó có trong file hay không, có ghi lại log việc in thành công hay không.

 

[le_vis]

Thử code này.Bạn tải file này về rồi đặt ở trong Folder các file cần in rồi bấm chạy code.

Sub inhocba()
Application.ScreenUpdating = False
    Dim i As Long, ObjFile, Wb As Workbook, Fso As Object, StrFolder As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    StrFolder = ThisWorkbook.Path
    For Each ObjFile In Fso.GetFolder(StrFolder).Files
        If Fso.GetExtensionName(ObjFile) Like "xls*" Then
           If ObjFile.Name <> "in" Then
              Set Wb = Workbooks.Open(ObjFile)
              'Wb.Sheets("8A2").PrintPreview
              Wb.Sheets("8A2").PrintOut
              Wb.Close
           End If
        End If
    Next
    Set Fso = Nothing
Application.ScreenUpdating = True
End Sub

Thầy có thể thêm code cho phép tự chọn in (Nghĩa là khi chọn in hiện cửa sổ để người sử dụng chọn 1 hay 2 ..... ; hay tất cả các sheet để in không thầy snow25) - Rất mong thầy quan tâm ; Cảm ơn thầy về bài viết hay