maybe this will help, say there was a choice of 2 printers, and you have
a check box to select which printer to print from
Code:
--------------------
'deterime which printer to print from
If Range("A1") = true then myprinterselect = "\\BTBEAPAPP04\PBTBEA001M"
If Range("A2") = true then myprinterselect = "\\BTBEAPAPP04\PBTBEA002M"
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
wrd.ActivePrinter = my printer select
--------------------
works for me anyway, good luck :)
--
rocket0612
------------------------------------------------------------------------
rocket0612's Profile:
http://www.excelforum.com/member.php...o&userid=19492
View this thread:
http://www.excelforum.com/showthread...hreadid=530690