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

Great idea, very clever...that will work for the onsite folks. The problem
is that we are going to be sending to offsite people and I have no idea what
their printers are. :-(

"rocket0612" wrote:


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

I think I used the printersetup dialog box in a project to allow users to
change the printer. I had a command button on the form that ran code like
this

Application.Dialogs(xlDialogPrinterSetup).Show

Then I put the activeprinter.name into a label that was on my form so users
knew what the active printer was. The code to print the worksheets was
attached to another command button.

Hope this helps.


"sarah_tennessee" wrote:

Great idea, very clever...that will work for the onsite folks. The problem
is that we are going to be sending to offsite people and I have no idea what
their printers are. :-(

"rocket0612" wrote:


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

Two other links posted by Norman Jones and Steve Yandl

http://word.mvps.org/FAQs/MacrosVBA/...lePrinters.htm
http://tinyurl.com/9cm7l


"sarah_tennessee" wrote:

Great idea, very clever...that will work for the onsite folks. The problem
is that we are going to be sending to offsite people and I have no idea what
their printers are. :-(

"rocket0612" wrote:


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

Dim sh as Worksheet
set sh = Activesheet
If CheckBox1.Value = True Then
Sheets(Array("Total Summary", "VZ Total Summary")).Select
application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.Print
End if
sh.Select

--
Regards,
Tom Ogilvy

"sarah_tennessee" wrote in
message ...
Great idea, very clever...that will work for the onsite folks. The
problem
is that we are going to be sending to offsite people and I have no idea
what
their printers are. :-(

"rocket0612" wrote:


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

This should be just what you want. It also restores the users default
printer after printing.

strOldActivePrinter = Application.ActivePrinter
Application.Dialogs(9).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = strOldActivePrinter

Lee