Thắc mắc về macro in nhiều sheet

[popog]

Mình tạo một macro in, mục đích là in các sheet được chỉ định với số trang theo yêu cầu nhưng mắc lỗi không chạy được. (Danh mục các sheet đã được lập và tập hợp tự động trong sheet1 rồi). Mong mọi người giúp mình với.

Trước đây mình từng hỏi vấn đề này nhưng chưa ai giải đáp, mình tìm lại bài đăng đó để xóa đi (cho đỡ rác) nhưng chưa tìm được cách xóa. Cho mình hỏi làm cách nào để xóa?

 

[nghiaphuc]

Mình tạo một macro in, mục đích là in các sheet được chỉ định với số trang theo yêu cầu nhưng mắc lỗi không chạy được. (Danh mục các sheet đã được lập và tập hợp tự động trong sheet1 rồi). Mong mọi người giúp mình với.

Trước đây mình từng hỏi vấn đề này nhưng chưa ai giải đáp, mình tìm lại bài đăng đó để xóa đi (cho đỡ rác) nhưng chưa tìm được cách xóa. Cho mình hỏi làm cách nào để xóa?

Nếu thực sự các sheet của bạn đều có tên dạng "000" thì bạn thử thay Sub PrintSheets thành sub sau xem sao:

Sub PrintSheets()
    Dim i As Long
    Sheets("Sheet1").Activate
    For i = 4 To [B65536].End(xlUp)
        If Cells(i, 5) > 0 Then Sheets(Format(Cells(i, 2), "000")).PrintOut copies:=Cells(i, 5)
    Next
End Sub

 

[popog]

Nếu thực sự các sheet của bạn đều có tên dạng "000" thì bạn thử thay Sub PrintSheets thành sub sau xem sao:

Sub PrintSheets()
    Dim i As Long
    Sheets("Sheet1").Activate
    For i = 4 To [B65536].End(xlUp)
        If Cells(i, 5) > 0 Then Sheets(Format(Cells(i, 2), "000")).PrintOut copies:=Cells(i, 5)
    Next
End Sub

macro đơn giản quá và chạy tôt, mình phải xem lại hướng dẫn phần "Sheets(Format(Cells(i, 2), "000"))" để lần sau sử dụng mới được. Nhưng mình cho mình hỏi, macro mình viết ở điểm nào. Trước đó mình record macro rồi chỉnh sửa thêm chút nhưng chưa hiểu sai điểm nào mà không chạy được