Is there a way not to print a specific word or cell

[ABabeNChrist]

Is there a way not to print a specific word or cell? using code or not. Let say I have the word spot in cell A1 that I want to leave on my sheet but do not wish to have it print.

[HansV]

You could set the text color of the cell(s) to the same as the fill (background) color. This will make the text invisible both on screen and in a printout.
Alternatively, you could hide the row or column containing the cell.

[Don Wells]

Is there a way not to print a specific word or cell? using code or not. Let say I have the word spot in cell A1 that I want to leave on my sheet but do not wish to have it print.

One approach using code would be to:

• copy the sheet to a new sheet

• do a search and replace on the new sheet, replacing the word or phrase of interest with nothing ("")

• print the new sheet

• delete the new sheet

H.T.H.

[Leif]

You could set the text color of the cell(s) to the same as the fill (background) color. This will make the text invisible both on screen and in a printout.

I don't think that will work when printing in 'Black and white' mode - certainly not in my Excel 2002...

[HansV]

No, in B&W mode, Excel will print the text even if it is white...

[ABabeNChrist]

I first attemped in using

Code: Select all

            With ActiveSheet
                .Range("A1").Value = ""
                .PrintOut
                .Range("A1").Value = "Spot"
            End With

This is not exactly what I was hoping for. I was hoping to format a single cell so that text would and could be visible but would not print. Like a form control, you can see it but you don’t have to print it. This way printing would not necessarily need code to hide text

[HansV]

I was hoping to format a single cell so that text would and could be visible but would not print.

That is not possible, so you'll have to use a workaround.

[ABabeNChrist]

I guess a workaround it is
Thank you Hans, Don and Leif

[StuartR]

I guess a workaround it is...

Another workaround might be to insert a borderless white rectangle in front of the cell

Code: Select all

Dim shp As Shape

With ActiveSheet.Range("D4")
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
End With

shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
shp.Line.Visible = msoFalse

[ABabeNChrist]

Thank you StuartR
thats not a bad idea
I will weight out all my options and see what works best in my application

[Jim Cone]

A custom number format of ";;;" hides a cell entry without altering the cell contents.
You can use the workbook Before Print event code to format the cell(s), print the sheet and then revert to the original number format.
'---
Jim Cone
Portland, Oregon USA
https://goo.gl/IUQUN2" onclick="window.open(this.href);return false; (Dropbox)
(free and commercial excel workbooks & add-ins)