How can I incorporate a little script to set the drawer on the printer I am using? I already have it set to choose the printer I want, but Need a little help selecting what drawer to use.


Here is my current code:
Private Sub CommandButton1_Click()
Dim objPrinter
Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter "\\gmmcradfpsisc01\NRAD2"
Application.ScreenUpdating = False
Worksheets("monthly").Visible = True
Worksheets("monthly").PageSetup.PrintArea = "$A$1:$h$34"
Worksheets("monthly").PrintOut
Worksheets("monthly").Visible = False
Worksheets("Print Data").Visible = True
Worksheets("Print Data").PageSetup.PrintArea = "$A$1:$J$42"
Worksheets("Print Data").PrintOut
Worksheets("Print Data").Visible = False
Application.ScreenUpdating = True
Unload UserForm110
UserForm115.Show
End Sub
Thanks for any help!