PDF995 on NE00

O

Oldjay

I have the following code (partial)

Dim CurrentPrinter As Variant

Workbooks.Open Filename:="C:\Quotes\Quote Form.xls"
Application.CutCopyMode = False

CurrentPrinter = Application.ActivePrinter ' Store current printer.

Application.ActivePrinter = "PDF995 on Ne00:" ' Change Printers."

For i = 1 To 9 ' Check for correct Ne number
Err.Clear
On Error Resume Next
Application.ActivePrinter = "printername on Ne0" & i & ":"
If Err.Number = 0 Then Exit For
On Error GoTo 0
Next

ActiveWindow.SelectedSheets.PrintOut ' Print the active document.
Application.ActivePrinter = CurrentPrinter

I am trying to detect what the other NE0 number is on other computers that
use this program, I can't get to work on my computer that uses NE01.

What is wrong?

oldjay
 
O

Oldjay

Forgrt it I forgot to delete = Application.ActivePrinter = "PDF995 on Ne00:"
' Change Printers."
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top