Print Hidden column with my print function

[jimjaix]

Hi, thanks VoG for the following print function

Private Sub CommandButton2_Click()
With ActiveSheet
    .PageSetup.PrintArea = "B3:F120"
    .PrintOut
End With
End Sub

With this print function I want print the hidden columns, I have B to F and D:F are hidden, how do I hit the print button and then print B:F even thought they are hidden? Thanks

 

[VoG]

Try

Private Sub CommandButton2_Click()
With ActiveSheet
    .Columns("B:F").Hidden = False
    .PageSetup.PrintArea = "B3:F120"
    .PrintPreview
    .Columns("B:F").Hidden = True
End With
End Sub

 

[jimjaix]

Very sweet, it shows me the print preview. Is there a way I can put a printing Title into the VBA?

Try

Private Sub CommandButton2_Click()
With ActiveSheet
    .Columns("B:F").Hidden = False
    .PageSetup.PrintArea = "B3:F120"
    .PrintPreview
    .Columns("B:F").Hidden = True
End With
End Sub

 

[VoG]

Very sweet, it shows me the print preview. Is there a way I can put a printing Title into the VBA?

Oops! Change .PrintPreview to .Printout

Where do you want the title - as a header?

 

[jimjaix]

I set the print title under Page Setup, I want to know if I can embed that into the print button, let's say one button says Print CDTS, I want the title to be "Time in / Time out Sheet CDTS" and then my second button is LDP so I want it to be ""Time in / Time out Sheet Latino" if I can do that it would be so cool.

Oops! Change .PrintPreview to .Printout

Where do you want the title - as a header?

 

[VoG]

Try

Private Sub CommandButton2_Click()
With ActiveSheet
    .Columns("B:F").Hidden = False
    .PageSetup.PrintArea = "B3:F120"
    .PageSetup.CenterHeader = "Time in / Time out Sheet CDTS"
    .PrintOut
    .Columns("B:F").Hidden = True
End With
End Sub

 

[jimjaix]

This is amazing, it works. Thanks a lot VoG

Try

Private Sub CommandButton2_Click()
With ActiveSheet
    .Columns("B:F").Hidden = False
    .PageSetup.PrintArea = "B3:F120"
    .PageSetup.CenterHeader = "Time in / Time out Sheet CDTS"
    .PrintOut
    .Columns("B:F").Hidden = True
End With
End Sub

P.S. AMAZING PEOPLE ON THIS WEBSITE