hide columns before printing

[Jean-Paul De Winter]

Hi,

Before actually printing my sheet I want to hide column A and B.
Can I do this automatically without having to hide them manually?

Thanks

 

[Jarek Kujawa]

press ALT+F11 to get to VBA
then in Project-VBA Project window double click on ThisWorkbook
put this code into the window to the right:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A:B").Columns.Entirecolumn.Hidden = True
End Sub


HIH
pls click YES if it helped

 

[ozgrid.com]

Define a Custom View.

 

[Jean-Paul]

???

 

[ozgrid.com]

Read your Excel Help on "Custom Views"

 

[Jean-Paul]

Hi,

Thanks for the code, it works, but, after printing and returning to the
worksheet, both columns remain hidden..
How can I automatically make them visible again??

Thanks

press ALT+F11 to get to VBA
then in Project-VBA Project window double click on ThisWorkbook
put this code into the window to the right:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A:B").Columns.Entirecolumn.Hidden = True
End Sub


HIH
pls click YES if it helped

 

[Jarek Kujawa]

Jean_Paul's and Dave's solution is better

but if you prefer to stick with VBA then you might use this one (which
is far from perfect):

Sub Makro1()

For i = 1 To ActiveWindow.SelectedSheets.Count
names_string= names_string & Sheets(i).Name
Next i

If names_string Like "*Sheet1*" Then Arkusz1.Columns("A:B").Hidden =
True

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If names_string Like "*Sheet1*" Then Arkusz1.Columns("A:B").Hidden =
False

End Sub

adjust your sheet names and columns