Giúp code giải phóng bộ nhớ khi dùng code Print

[hondacrv2019]

Chào cả nhà GPE !
Hiện em đang dùng đoạn code này để in phiếu và nút bấm. Bình thường code chạy rất ok. Nhưng cứ 1 2 ngày ( in tầm 100 phiếu )lại bị lỗi như sau


- File excel này em mở 24/24 trên máy tính
- Máy in em dùng máy in bill cổng USB
- Em có thử In test trong Cotropanel thì vẫn được, Mở file Word vẩn in được

**Hiện cách khắc phục duy nhất: Cứ mổi lần bị lỗi em phải thoát hẳn File excel rồi mở lại mới in được.
Em có đọc bảng miêu tả lổi của VBA thì nó nối đầy bộ nhớ . Mà cấu hình máy em Ram 16GB, ổ cứng SSD 240GB, Chip Corel I7 sao mà đầy được.
Cho em có đoạn code nào khắc phục lổi này không, hay có đoạn code nào Xóa hết bộ nhớ trong VBA. em xin cảm ơn nhiều

Sub INPHIEU()

        'On Error Resume Next

        Application.ScreenUpdating = False

        Application.ActivePrinter = Sheets("HOME").Range("B2").Value

        ActiveWorkbook.Sheets("inhoadon").PrintOut Copies:=1, ActivePrinter:=Sheets("HOME").Range("B2").Value, Collate:=True

        Application.ScreenUpdating = True

End Sub