Giúp em về lỗi marco để in hóa đơn tự động (1 người xem)

[7238_631]

em chưa dùng marco bao giờ, trong tệp này em sửa lại lệnh trong marco xong thì gặp lỗi .em không hiểu phải sưa như thế nào. mong anh chị giúp đỡ ạ

Public Sub in_bg()Dim tu, den As Integer
                    'Xac dinh so in
    tu = Sheet1.Cells(27, 14)
    den = Sheet1.Cells(28, 14)
                    'Xoa trang in
Sheet5.Range("A:AQ").Clear


Application.ScreenUpdating = False
                    'Tao trang in
k = 1
For i = tu To den
Sheet1.Cells(26, 16) = i
Sheet4.Rows("1:27").Copy
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteValues
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats
k = k + 28
Next
Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
            'Tuyf banj chon cachs xem
'Sheet5.PrintPreview
Sheet5.Range("I1").Select


End Sub