Addin mặc định in ở chế độ "Black & White" (1 người xem)

[nhuuvinh18]

Mình sử dụng file excel của các người trước để lại, họ sử dụng màu nền nên khi in ra thì trang in có màu mờ mờ, muốn ko thấy thì phải vào setup lại black and white cho trang muốn in, mà file nhiều sheet quá, mong mọi người giúp có cách nào mặc định in ở chế độ black and white ko? hay có addin nào có chức năng này ko?
Cảm ơn mọi sự giúp đỡ của các ace.

 

[nghiaphuc]

Mình sử dụng file excel của các người trước để lại, họ sử dụng màu nền nên khi in ra thì trang in có màu mờ mờ, muốn ko thấy thì phải vào setup lại black and white cho trang muốn in, mà file nhiều sheet quá, mong mọi người giúp có cách nào mặc định in ở chế độ black and white ko? hay có addin nào có chức năng này ko?
Cảm ơn mọi sự giúp đỡ của các ace.

Thay vì bạn chọn từng sheet rồi Page setup thì bạn chọn tất cả các sheet (click phải tại tên sheet và chọn Select all sheets) rồi mới nhấn Page setup và thiết lập tùy chọn Black and white.

 

[nhuuvinh18]

chọn như thế sẽ set lại lề cho tất cả các sheet cùng 1 thông số, như vậy sẽ làm nhiều sheet vỡ trang khi in. Mong có cao nhân nào giúp sức.

 

[tvxdgt]

Có thể bạn dùng đoạn code sau:

 Sub BW() 
 Dim Sh As Worksheet 
 For Each Sh In ThisWorkbook.Worksheets   
 Sh.PageSetup.BlackAndWhite = True  
Next 
 End Sub

 

[nhuuvinh18]

Xin cám ơn bạn quan tâm giúp, nhưng mình ko biết phải dùng Code của bạn sao cả. Bạn có thể chỉ chi tiết chút xíu đc ko? Cám ơn bạn nhiều

 

[nghiaphuc]

Xin cám ơn bạn quan tâm giúp, nhưng mình ko biết phải dùng Code của bạn sao cả. Bạn có thể chỉ chi tiết chút xíu đc ko? Cám ơn bạn nhiều

Bạn mở file Excel lên, nhấn Alt+F11, chọn Insert\Module --> dán đoạn code trên vào --> nhấn F5 để chạy code, hoặc quay trở lại Excel, nhấn Alt+F8, chọn macro BW, nhấn Run.
Nếu bạn chỉ muốn thực hiện với một số sheet được chọn thì bạn thay Thisworkbook.Worksheets thành ActiveWindow.SelectedSheets.