Suppress printing a column (advanced question)

[clay5000]

I have a list of customers to send to branch offices. One column has personal customer info that I want visible on the screen, but I don't want printed on paper. I made it the last column, and set the column page break to exclude the column, but the branch offices are too smart, and reset the column page break to include the last column. So my question is whether there is any way to give a column some "property" so it isn't visible on printing, or some other method to accomplish the same thing?

 

[ColinKJ]

Hi clay5000,

Try

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(1).Columns("K:K").EntireColumn.Hidden = True
End Sub

Code:


Change the Sheet Ref & Column Ref to suit your requirements.

This will hide the Column before the Print.

But it will leave the column Hidden when printings complete, if you want to restore the column, add the following in a standard module.

Code:

Sub Show()
Sheets(1).Columns("K:K").EntireColumn.Hidden = False
End Sub

Code:

You'll then need to assign the Show Macro to a Ctrl+Key combination.

ColinKJ