Print Button

[dafricano]

Trying to make a button print a selected range on the active sheet, here is what I have. Obvioulsy it's not working and any help would be greatly appreciated.

Private Sub CommandButton1_Click()
Select Case ActiveSheet.CodeName
Case ActiveWindow.SelectedSheets
Sheet1ActiveWindow.SelectedSheets.PageSetup.PrintArea = "$A$72:$G$112"
ActiveWindow.SelectedSheets.PrintOut
End Select
End Sub

Thanks dafricano

 

[erik.van.geit]

dafricano,

isn't this enough?

Private Sub CommandButton1_Click()
With ActiveSheet
.PageSetup.PrintArea = "$A$72:$G$112"
.PrintOut
End With
End sub

kind regards,
Erik

 

[dafricano]

Erik,

That did the trick.

Thank You!
David