lỗi khi in hàng loạt trong Excel

[dungsijojo]

Mình mới sử dụng VBA trong công việc có đoạn code sau báo lỗi anh em sửa giúp
Sub printF()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = R28.Range("W5").Value
printTo = R28.Range("W6").Value
For i = printFrom To printTo
R28.Range("W4").Value = i
R28.PrintOut Preview:=False
Next i
End Sub

 

[be_09]

Mình mới sử dụng VBA trong công việc có đoạn code sau báo lỗi anh em sửa giúp
Sub printF()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = R28.Range("W5").Value
printTo = R28.Range("W6").Value
For i = printFrom To printTo
R28.Range("W4").Value = i
R28.PrintOut Preview:=False
Next i
End Sub

Tôi không sửa code của bạn mà làm lại, bạn xem thử.
Lưu ý:
- Muốn in biên bản từ số mấy đến số mấy thì bạn gõ số vào W5 và W6.
- Muốn in tất cả biên bản thì gõ số 1 vào W5 và gõ số cuối cùng vào W6.