Print button (B4:D103)

[jimjaix]

Hi, I want to create a print button to print some cells. let's say B4:D104 and another button to print B105:D194. Is it possible?

I LOVE THIS WEBSITE!!!

 

[VoG]

For your first button try

Sub PrtRng1()
With ActiveSheet
    .PageSetup.PrintArea = "B4:D106"
    .PrintOut
End With
End Sub

The code for the second button should be obvious.

 

[jimjaix]

Hi I used the same code you provided beside the name, I changed to the command button name it assigned. When i click on the button nothing happens, no error message no print out nothing?

For your first button try

Sub PrtRng1()
With ActiveSheet
    .PageSetup.PrintArea = "B4:D106"
    .PrintOut
End With
End Sub

The code for the second button should be obvious.

 

[VoG]

Well, this works for me

Private Sub CommandButton1_Click()
With ActiveSheet
    .PageSetup.PrintArea = "B4:D106"
    .PrintOut
End With
End Sub

Make sure that you have exited Design Mode after creating the button and make sure that macros are enabled.

 

[jimjaix]

Hi Thanks, I got it to work now. I forgot I already have a Button1, I needed to change it to 2.

Well, this works for me

Private Sub CommandButton1_Click()
With ActiveSheet
    .PageSetup.PrintArea = "B4:D106"
    .PrintOut
End With
End Sub

Make sure that you have exited Design Mode after creating the button and make sure that macros are enabled.