Xin code in phiếu điểm (2 người xem)

[Tran Mui]

Tôi cần CODE để in phiếu điểm
trong file đính kèm In_phieuDiem.xls
Mong GFE giúp
( sơ qua như sau : trang A4 nằm ngang có 2 phiếu, nhận từ danh sách , nếu chọn một số in theo thông thường chỉ in được 1 ờ, có 2 phiếu, tôi muốn tạo nhãn khi clik vào nhãn sẽ cho in theo ý muốn, 10 phiếu)

 

[tedaynui]

Bạn tham khảo codes sau

Sub InPhieuDiem()
Dim i As Long
For i = 1 To 5
    ActiveSheet.PrintOut
    [B11] = [B11] + 2
Next i
End Sub