Xin được hỗ trợ chỉnh code để hiện được ảnh lên trang in

[le_vis]

Tôi có sử dụng đoạn code (Như trong File đính kèm) để lấy hình ảnh từ Fodo chứa ảnh sang trang in; nhưng khi in thì không hiện được ảnh trong trang in
Kính nhờ các bạn giúp đỡ sao cho khi in hiện đầy đủ phần chữ và phần ảnh trong trang in - Trân trọng cảm ơn nhiều

 

[le_vis]

Tôi có sử dụng đoạn code (Như trong File đính kèm) để lấy hình ảnh từ Fodo chứa ảnh sang trang in; nhưng khi in thì không hiện được ảnh trong trang in
Kính nhờ các bạn giúp đỡ sao cho khi in hiện đầy đủ phần chữ và phần ảnh trong trang in - Trân trọng cảm ơn nhiều

Rất tiếc ! Không có bạn nào giúp được sao ta

 

[Vô danh Tiểu tốt]

Thêm đoạn code sau vào vị trí thích hợp thì sẽ giải quyết được nhu cầu của bạn. Mình đã thử tốt.

    With ActiveSheet.PageSetup
      .PrintComments = xlPrintInPlace
    End With

 

[befaint]

Thiết lập như hình rồi cứ thế in thôi.

 

[le_vis]

Thiết lập như hình rồi cứ thế in thôi.

View attachment 268253

Cảm ơn bạn. đã thiết lập đúng như hình bạn chỉ dẫn; nhưng chỉ in được phần chữ. Ảnh không in ra được

Bài đã được tự động gộp: 25/10/21

Thêm đoạn code sau vào vị trí thích hợp thì sẽ giải quyết được nhu cầu của bạn. Mình đã thử tốt.

    With ActiveSheet.PageSetup
      .PrintComments = xlPrintInPlace
    End With

Cảm ơn bạn nhiều_ Đã thành công