Yes!

Tray Selector Version 2.0.2 onwards

The following VBA examples shows how this is achieved along with an example of how to make changes for number of copies etc.

Example 1. Simply click the first button

Sub ClickFirstButton()
    On Error GoTo TsErr
    Set tsModule = Application.COMAddIns("TraySelectorOne.AddinModule").Object
    ' Click the first tray selector button buttons are numbered starting from 1 even if they are not shown on the ribbon/toolbar.
    Call tsModule.ClickProfileButton(1)
    On Error GoTo 0
    Exit Sub

TsErr:
    MsgBox ("Error Calling TraySelector Interface")
End Sub

Example 2. More complex
Sub CallTraySelector()
    On Error GoTo TsErr
    Set tsModule = Application.COMAddIns("TraySelectorOne.AddinModule").Object

    ' Set button 1 to print two copies
    Call tsModule.SetProfileButtonCopies(1, 2)
    ' Set button 1 to have two extra copies
    Call tsModule.SetProfileButtonCopiesExtra(1, 2)
    ' Set the document protect passsword in case the document is protected
    Call tsModule.SetDocumentProtectPassword("secret")

	' Set a page range for the next profile printed (works for all profiles) available from version 1.2.4 upwards
    Call tsModule.SetNextPageRange("2-3")

    ' Click the first tray selector button buttons are numbered starting from 1 even if they are not shown on the ribbon/toolbar.
    Call tsModule.ClickProfileButton(1)

	' Clear the page range set above
    Call tsModule.ClearNextPageRange

    ' set the profile button copies back to 1
    Call tsModule.SetProfileButtonCopies(1, 1)
    ' set the profile button copies for the extra copies back to 1
    Call tsModule.SetProfileButtonCopiesExtra(1, 1)

    On Error GoTo 0
    Exit Sub

TsErr:
    MsgBox ("Error Calling TraySelector Interface")
End Sub