In bằng VBA không hiện hết hình ảnh (1 người xem)

[MeThuongNho]

Kính chào Anh / Chị,
Em có làm lệnh in bằng VBA như file đính kèm.
Code :

Sub intrang()
ActiveSheet.PrintPreview
End Sub

Nhưng khi chạy code thì hình ảnh trong sheet không hiện hết.
Mong mọi người giúp đỡ.
---
Cho em xin thêm 2 code hơi khác đề tài một chút:
1. Khi đóng file thì xóa giá trị tại E4.
2. Khi lưu file thì xóa giá trị tại E4
Cám ơn nhiều

 

[vova2209]

Kính chào Anh / Chị,
Em có làm lệnh in bằng VBA như file đính kèm.
Code :

Sub intrang()
ActiveSheet.PrintPreview
End Sub

Nhưng khi chạy code thì hình ảnh trong sheet không hiện hết.
Mong mọi người giúp đỡ.
---
Cho em xin thêm 2 code hơi khác đề tài một chút:
1. Khi đóng file thì xóa giá trị tại E4.
2. Khi lưu file thì xóa giá trị tại E4
Cám ơn nhiều

In không hiện hết hình ảnh là lỗi máy in, cài lại là được.
Bạn sử dụng sự kiện Đóng WorkBook
add vào module1

Sub XoaData()
    Sheet1.Range("E4").ClearContents
End Sub

Add vào thisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call XoaData
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call XoaData
End Sub

 

[MeThuongNho]

In không hiện hết hình ảnh là lỗi máy in, cài lại là được.
Bạn sử dụng sự kiện Đóng WorkBook
add vào module1

Sub XoaData()
    Sheet1.Range("E4").ClearContents
End Sub

Add vào thisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call XoaData
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call XoaData
End Sub

Cám ơn anh vova2209
Nhưng không phải do máy in anh ơi.
- View bằng Ctr + P hoặc nút Print view and Print thì thấy hiện hết hình ảnh.
- Còn view bằng Button In từ code VBA thì hình ảnh không hiện.
Xem giúp mình với nha.

 

[MeThuongNho]

Cám ơn anh vova2209
Nhưng không phải do máy in anh ơi.
- View bằng Ctr + P hoặc nút Print view and Print thì thấy hiện hết hình ảnh.
- Còn view bằng Button In từ code VBA thì hình ảnh không hiện.
Xem giúp mình với nha.

Mình đã đổi code in sang code này và được rồi.

    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Trân trọng!