hide columns before printing
in [General]
|
From: Jean-Paul on 16 Apr 2010 18:35 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 Jarek Kujawa wrote: > 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 > > > On 15 Kwi, 08:24, "Jean-Paul De Winter" <jp.dewin...(a)pandora.be> > wrote: >> 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 >> >> -- >> >> Mvg. >> Jean-Paul De Winter >
From: Jarek Kujawa on 21 Apr 2010 06:22
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 On 17 Kwi, 00:35, Jean-Paul <jp.dewin...(a)telenet.be> wrote: > 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 > > > > Jarek Kujawa wrote: > > 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 > > > On 15 Kwi, 08:24, "Jean-Paul De Winter" <jp.dewin...(a)pandora.be> > > wrote: > >> 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 > > >> -- > > >> Mvg. > >> Jean-Paul De Winter- Ukryj cytowany tekst - > > - Poka¿ cytowany tekst - |