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

hondacrv2019

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia ngày
19 Tháng năm 2019
Bài viết
116
Được thích
9
Điểm
170
Tuổi
35
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

1579256780216.png
- 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

Mã:
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
 

File đính kèm

Top Bottom