Khi xem trước khi in và in ra giấy thì không in những dòng có đổ màu Fill Color

[trantien384]

Mọi người giúp em viết code VBA để thực hiện việc in theo màu này với:
Em có một bảng tính, trong đó có Sheet với phần dữ liệu gồm 2 loại, loại không tô màu nền Fill Color và loại có tô màu nền Fill Color (Tô màu nền theo dòng). Những dòng tô màu nền này có thể không liên tục mà cách khoảng.

Do tính chất công việc (Ở đây em có thể ẩn các dòng này trước khi in nhưng làm vậy thì khi gửi File bảng tính cho người khác kiểm tra sẽ khó phát hiện mình đã ẩn đi một số dòng, và cũng chính em sau một thời gian cũng sẽ quên không biết mình có ẩn những dòng nào vì rất nhiều Sheet). Vậy nên em muốn nhờ mọi người giúp em viết lệnh cho Excel có thể thực hiện được việc này:

Những dòng không tô màu nền thì được phép hiển thị khi ở chế độ xem trước khi in và được in ra giấy. Còn những dòng tô màu nền thì khi xem trước khi in và in ra giấy thì không thấy. Sau khi thoát lệnh Print Preview thì mình vẫn thấy được cả dòng tô màu nền và dòng không tô màu nền. Khi in ra giấy thì phần dòng tô màu sẽ bị ẩn và tự động đẩy những dòng không tô màu lên để sao cho in ra giấy thì bảng tính vẫn liên tục chứ không bị ngắt quãng bởi một khoảng trắng do những dòng tô màu nền bị ẩn.
Đây là File bảng tính của em: http://www.mediafire.com/download/4gbulz1i7iot4ta/1.+Dao+khuon+Km0+000-Km0+998.82++-++TT01.xlsm