Lỗi code VBA, Printout

[thịnh2439]

Dạ em có công việc cần in ấn trên excel, cụ thể là em muốn in theo thứ tự danh sách sheet, mỗi sheet in từ trang nào đến trang nào. Em viết đoạn code sau nhưng cứ bị lỗi, nhờ các anh chị trong diễn đàn giúp em với ạ

Sub PrintBC()
Dim dongcuoi As Variant
dongcuoi = Sheets("PRINTBC").Range("A" & Rows.Count).End(xlUp).Row
Dim sodong As Variant
For sodong = 2 To dongcuoi

Worksheets(Sheets("PRINTBC").Range("A" & sodong).Value).PrintOut From:=(Range("B" & sodong)), To:=(Range("C" & sodong))


Next sodong

End Sub



Báo lỗi này ạ

 

[Maika8008]

Dạ em có công việc cần in ấn trên excel, cụ thể là em muốn in theo thứ tự danh sách sheet, mỗi sheet in từ trang nào đến trang nào. Em viết đoạn code sau nhưng cứ bị lỗi, nhờ các anh chị trong diễn đàn giúp em với ạ

Sub PrintBC()
Dim dongcuoi As Variant
dongcuoi = Sheets("PRINTBC").Range("A" & Rows.Count).End(xlUp).Row
Dim sodong As Variant
For sodong = 2 To dongcuoi

Worksheets(Sheets("PRINTBC").Range("A" & sodong).Value).PrintOut From:=(Range("B" & sodong)), To:=(Range("C" & sodong))


Next sodong

End Sub

View attachment 237865

Báo lỗi này ạ

View attachment 237867View attachment 237865View attachment 237865

Office bạn bị lỗi sao đó chứ máy tôi chạy vẫn nhận lệnh in bình thường

 

[vu_tuan_manh_linh]

Bạn xem lỗi báo ở dòng code nào? Hình như lỗi báo biến dongcuoi vượt quá giá trị giới hạn.