LỖi khi nhấn lệnh Print bằng combo (1 người xem)

[truckhoa2006]

Tháng trước được các thầy và các bạn cho công thức lệnh in; Đăng nhập password, và nhiều cái khác. Giờ tự nhiên nó hư mất lệnh in

code của nó như sau:

Sub INPHIEULUONGQC1() 'Sub MAKEPL1()
Dim Dc As Long, Cl(), i, j, k
Dim Tm, Td, Kq()
Dc = Sheet8.Range("A65536").End(xlUp).Row
If Dc < 5 Then Exit Sub
ReDim Kq(Int(Dc / 2) * 14 + 14, 1 To 6) 'Tang 2 so "*14+14," 2 so nay lien quan den So thu tu cot can lay
Tm = Sheet8.Range("A11:R" & Dc) 'So thu tu dong can lay la dong 5 cot A
Td = Sheet8.[A9:R9] 'Tieu de can lay tu vung A4:O4
k = 1
Cl = Array(2, 3, 4, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18) 'So thu tu cac cot can lay Data
For i = 1 To UBound(Tm, 1) Step 2
For j = 0 To 12 'Cl them cot can lay o sheet5 thi tang so dong can xuat hien o sheet6
Kq(k + j, 2) = Td(1, Cl(j)) 'Sheet 6 : 2 là cot 2 noi dat tieu de (tuc la cot B) =
Kq(k + j, 3) = Tm(i, Cl(j)) 'Sheet 6 : 3 là cot 3 noi dat noi dung (tuc la cot C) =
Kq(k + j, 5) = Td(1, Cl(j)) 'Sheet 6 : 5 là cot 5 noi dat tieu de (tuc la cot E) =
Kq(k + j, 6) = Tm(i + 1, Cl(j)) 'Sheet 6 : 6 là cot 6 noi dat noi dung (tuc la cot F) =
Next j
k = k + 14 'Tang dau " ? " (k + ?) la tang khoang cach giua cac phieu luong ? = STT cua Cl
Next i
Sheet4.[A1:F65000].ClearContents 'Xoa tat ca noi dung trong vung cua sheet nay truoc khi xuat noi dung moi
Sheet4.[A1].Resize(UBound(Kq, 1), UBound(Kq, 2)) = Kq ' Noi dung moi duoc dat bat dau tu ô A2 (A1 +1)
Sheet4.Select 'Chon sheet6
End Sub

Không biết làm sao mà toàn báo lỗi ở dòng em bôi màu đỏ , bây giờ in lương in không được. mong các anh giúp đỡ và em gửi file cho các thầy và các bạn xem giúp dùm thêm cho em.
Từ khi add cái form s9ang nhập bằng password vào thì nó không cho Insert sheet hay delete sheet nữa . Mong mọi người giúp đỡ dùm

Trong các sheet LUONGQC1, LUONGQC2, LUONGHD1, LUONGHD2. Đều có 1 nút là MENU dùng về lại bảng điều khiển và 1 nút PRINT . Cả 4 bàng này nhấn Print đều báo lỗi. Mong mọi người giúp dùm em.
EM cám ơn mọi người nhiều nhiều ah.

Pass đăng nhập là admin

Vì bây giờ mà tháo cái đăng nhập ra là file báo lỗi hết, dù rất muốn tháo nó ra.
Cám ơn mọi người
File hơi nặng mọi người tải bằng cái này dùm mình nha:

https://www.mediafire.com/?nybte8j8ab9bogv