print workbook in colour but not the manual highlighted cells

[beca]

Hi, I have a workbook with colour logos, and some cells have manual highlighted colours. I want to print the workbook in colour, but not the cell highlights.

Can someone please help with a macro that can remove the manual highlights in cells before printing the workbook in colour, and return the cell highlights after printing.

Thanks

 

[Gokhan Aycan]

Something like this work for you?

Private Sub test_highlights()
   
    With ThisWorkbook
        .Worksheets("sheet_name_here").Copy Before:=.Worksheets(1)
        With .Worksheets(1)
            .Cells.Style = "Normal"
            .PrintOut
            Application.DisplayAlerts = False
            .Delete
            Application.DisplayAlerts = True
        End With
    End With
   
End Sub

Modified the code provided in Print Without Cell Fill Color But Keep Cell Text Color

 

[beca]

Hi, it gives me error message as below

 

[Gokhan Aycan]

I edited my first post, just change it ("two") to your worksheet's name.

 

[Gokhan Aycan]

Also, test on a copy of the workbook!

 

[beca]

Hi Gokhan, I have changed the workbook name to "2", it still shows error?

 

[beca]

Hi Gokhan, I managed to run the macro. However, there are few issues:

• The macro code removes all the formatting on the numbers.
• The macro code removes all the boarders.

In addition, when I print the second time, the macro code does not allow me to overwrite the previous printout file.

See attached the print out from the macro code (first screenshot). the second screenshot is a colour print of the workbook, I would like to just remove the yellow highlights, and can overwrite the previous printout.

 

[bobsan42]

Try the code like this:

Sub test_highlights()
    Dim str As String
    str = ActiveSheet.Name
    With ThisWorkbook
        .ActiveSheet.Copy Before:=.Worksheets(1)
        With .Worksheets(1)
            .Cells.Interior.ColorIndex = xlNone
            .PrintPreview True
            Application.DisplayAlerts = False
            .Delete
            Application.DisplayAlerts = True
        End With
        .Worksheets(str).Activate
    End With
End Sub

However, if your printout includes your sheet name somewhere it will not match.
I also posted a code in your other post. Do not post twice on the same subject, or at least mention it somewehere.

 

[beca]

Hi Bob, thank you for the code, and it works perfectly.

One problem though, my workbook contains several worksheets, the code above only prints one worksheet at a a time. Is it possible to print all the worksheets in one print?