In liên tục các vùng vùng in thay đổi (3 người xem)

[daibangkieuhanh]

Mình đang tập viết 1 đoạn code in liên tục các vùng lựa chọn thay đổi, đã tham khảo trên diễn đàn rồi, nay ngồi ghép lại thành đoạn code riêng, nhưng loay hoay mãi ko được, cụ thể:
Sub Intrang()
Sheets("PBoi").Active 'Kich hoat sheetBoi (mới chạy đến đây đã bị lỗi)
For i = 1 To 5
Sheets("PBoi").Range("L7").Value = i
'Gan gia tri cho L7 trong Sheet PBoi =1
Activesheets.PageSetup.PrintOut = "$A$" & i & ":$D$" & i + 10
'Lua chon vung in thay doi trong sheet hien hanh (đây cũng lỗi)
Activesheets.PrintOut Copies:=1, Collate:=True
'Trong sheet hien hanh, in vung duoc lua chon
Next i
End Sub
Viết xong thấy lủng củng quá. Do mới tập tọe viết, mong các bạn chỉ giáo cho biết mình sai ở chỗ nào.
Xin cảm ơn

 

[ThuNghi]

Mình đang tập viết 1 đoạn code in liên tục các vùng lựa chọn thay đổi, đã tham khảo trên diễn đàn rồi, nay ngồi ghép lại thành đoạn code riêng, nhưng loay hoay mãi ko được, cụ thể:
Sub Intrang()
Sheets("PBoi").Active 'Kich hoat sheetBoi (mới chạy đến đây đã bị lỗi)
For i = 1 To 5
Sheets("PBoi").Range("L7").Value = i
'Gan gia tri cho L7 trong Sheet PBoi =1
Activesheets.PageSetup.PrintOut = "$A$" & i & ":$D$" & i + 10
'Lua chon vung in thay doi trong sheet hien hanh (đây cũng lỗi)
Activesheets.PrintOut Copies:=1, Collate:=True
'Trong sheet hien hanh, in vung duoc lua chon
Next i
End Sub
Viết xong thấy lủng củng quá. Do mới tập tọe viết, mong các bạn chỉ giáo cho biết mình sai ở chỗ nào.
Xin cảm ơn

Sheets("PBoi").Active 'sai chính tả phải là
Sheets("PBoi").Activate

Activesheets.PageSetup.PrintOut = "$A$" & i & ":$D$" & i + 10
'Lua chon vung in thay doi trong sheet hien hanh (đây cũng lỗi)
Activesheets.PrintOut Copies:=1, Collate:=True

2 câu này thay thành 1 câu

Sheets("PBoi").Range("A" & i & "" & i + 10).PrintOut Copies:=1, Preview:=False, Collate:=True

 

[daibangkieuhanh]

Xin bạn ThuNghi chỉ rõ thêm về:
-Sheets("PBoi").Active : Tại sao khi mình viết đoạn code này, trong VBA không hiển thị hỗ trợ chính tả, có lúc khi mình làm chỉ cần gõ đến chữ Ac.. là đã có một danh sách sổ ra hướng dẫn rồi
- Khi đặt dòng code:
Sheets("PBoi").Activate
Thì khi viết đoạn code chọn vùng rồi in, có cần viết:sheets("PBoi").Range(... hay chỉ cần viết là Range(....
Cảm ơn nhiều

 

[ThuNghi]

Xin bạn ThuNghi chỉ rõ thêm về:
-Sheets("PBoi").Active : Tại sao khi mình viết đoạn code này, trong VBA không hiển thị hỗ trợ chính tả, có lúc khi mình làm chỉ cần gõ đến chữ Ac.. là đã có một danh sách sổ ra hướng dẫn rồi
- Khi đặt dòng code:
Sheets("PBoi").Activate
Thì khi viết đoạn code chọn vùng rồi in, có cần viết:sheets("PBoi").Range(... hay chỉ cần viết là Range(....
Cảm ơn nhiều

1/ Thú thật mình thấy như vậy mà chưa biết giải thích, thường mình hay làm
Sheet1.activate
2/ Chỉ cần viết là Range(....) nhưng thói quen đưa vào thông số Sheet cho yên tâm. Có lúc còn phải thêm workbook nữa.
Chắc phải nhờ các Bác Duyệt, Hướng, Tuân ... giải thích hộ.

 

[daibangkieuhanh]

Cảm ơn bạn ThuNghi đã nhiệt tình giúp đỡ. Và mong được các Bác Duyệt, Hướng, Tuân.., các bậc tiền bối khác giải thích cái khúc mắc trên.