Html file printing issue

[Whistler]

Hi All,

I have created report where when you press a button vba is generating the html file from the report and new email window pop-up and add it as attachment. Everything works fine without any problems. But If user want to print that html report is coming as white tables with data, without colours and formatings.

Thanks very much for your help.

 

[Whistler]

The code to generate html file is below:

Set wb = ActiveWorkbook
aPath = wb.Path
aFile = aPath & "\Daily Report.htm"
With wb.PublishObjects.Add(xlSourceRange, _
aFile, "Summary", "A1:Q142", xlHtmlStatic)
.Publish (True)
End With

Completly don't understand why is displaying in browser correctly, but when you want to print is only data.