Vba code to print range

[uclc1922]

I was hoping to get help with VBA Code that when a Active X comand button is pressed, range D1 to E25 will print in landscape.

 

[jim may]

Paste this code into the Sheet Module of the Sheet you which to print

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
    .PrintArea = "$D$1:$E$25"
    .Orientation = xlLandscape
End With
Print
End Sub

 

[uclc1922]

This worked just perfect thank you so much!

 

[jim may]

Thanks for your response. It's always good to know that what we offer helps, or not. Jim