Printing

[Joel]

Hello,

My script prints with this code:

Sub CommandButtonShipLabel_Click()
Dim objDoc
Set objDoc =
GetWordDocShipLabel("\\tgps8\drawing$\Jobs\Task_Templates\Ship.dot")
Call FillFieldsShipLabel(objDoc)
objDoc.Application.Options.PrintBackground = True
objDoc.PrintOut
objDoc.Close wdDoNotSaveChanges
Call RestoreWordShipLabel
Set objDoc = Nothing
End Sub

How can I make it print to a specific printer and print 2 copies?

Thanks for your help.

-Joel