How to print a defined named range with command button

[RJSIGKITS]

Hi Guys.

I Have a sheet ("Quote") that I need to add a CommandButton to to print out a range that I have set as a print area.
The sheet itself will have numerous named ranges that need to print independently of each other according to what is needed.

So, at this time all I need to know is:

I have a Print Area Defined called "QuotePrint"
I Have a "CommandButton3"

I want to click the button, and it print only the defined "QuotePrint" area.

What should I change this to to do this, please?

Private Sub CommandButton3_Click()ThisWorkbook.Sheets("Quote").PrintPreview
End Sub

I will then need to have another button on a different sheet ("Home") to print off another range from the same "Quote" sheet that will print off a "SupplierOrderLog_Print" named range from the "Quote" sheet...

Any help comes with bucket loads of gratitude!

 

[RJSIGKITS]

I've tested this with the button on the Quote sheet, starting with the columns unhidden and hidden, and in both cases I don't get any error and the printpreview works as expected.

Is there any event code like Worksheet_Change on that sheet?

Hi.

Yes, On my "Quote" Sheet, I Have a case changing event:

Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A11:A40")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

 

[RJSIGKITS]

I've tested this with the button on the Quote sheet, starting with the columns unhidden and hidden, and in both cases I don't get any error and the printpreview works as expected.

Is there any event code like Worksheet_Change on that sheet?

I've just tried taking the Change event code out, and I'm still getting the same.

 

[VoG]

Tested using that code present - no problem.

 

[RJSIGKITS]

Tested using that code present - no problem.

Hmmm... Okay, so I obviously have the nuts and bolts of the right thing here, so I'll keep playing till I get it to work.

Thanks for your help.