Help finding Active printer "on Ne02"

[Hlatigo]

Morning all!

I have excel printing some sheets to pdf and it works fine on my PC. WHen someone else tries to print it wont work because they arent on "Adobe PDF on Ne02:"...they maybe on Ne03 or Ne08 or ne05...you get my point.

I saw code on here before as to how to find the proper "port" but after a bit of searching, i cant find it again. anyone have an idea?

thanks in advance!

 Application.ActivePrinter = "Adobe PDF on Ne02:"
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
            "Adobe PDF on Ne02:"

 

[mahris]

Thank you, westconn1.
But there remains a serious problem.
Your sample contains a hardcoded "on", but it should be localized. My program should work on different computers, not English only.
Has anybody an idea of getting a correct text between printer name and NExx?
Maris

 

[westconn1]

use a language converted string
or return the value from the string activeprinter

myon = ActivePrinter
pos = InStrRev(myon, " ")
pos1 = InStrRev(myon, " ", pos - 1) + 1
myon = Mid(myon, pos1, pos - pos1)

use the value from that like

activeprinter = prn & " " & myon & " " & Mid(regvalue, InStr(regvalue, ",") + 1)
in my english version myon returns the word "on", but it should return a single word value in any language, assuming that any language would use a single word representing on, which may be an invalid assumption

 

[mahris]

Thank you, I used your advice.
However strange - why MS chose such an idiotic printer identification?

 

[westconn1]

also strange in word you can set printer without port, but in word, if changed in code always changes windows default printer as well

 

[wynandbez]

WriteRegistry HKEY_CURRENT_USER, _
"Software\Adobe\Acrobat PDFWriter\", _
"PDFFileName", _
"C:\Printout.pdf"
 
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:"

Would the above code help me set the file name for a PDF if I print from Excel using the following code:

ActiveWorkbook.Sheets("Report").Select
Application.ActivePrinter = "Adobe PDF on Ne04:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF on Ne04:", Collate:=True

I need to name the PDF printed to something specific like:

Dim ReportDate, SaveName As String, Path As String
ReportDate = ActiveWorkbook.Sheets("Date Select").Range("E9").Value 'Reporting Date
SaveName = "DPR" & ReportDate & ".pdf" 'File Name
Path = ActiveWorkbook.Sheets("Date Select").Range("E15").Value & ReportDate & "\" 'Destination

Thanks

 

[westconn1]

i assume that would set the next filename to be saved by the pdf printer driver, but i do not know if acrobat driver can be set to auto (no user dialog)

 

[Hlatigo]

hi Wynanbez,

Not sure if you were ever able to get your code. I found some code on the internet that may do what you are asking.

If interested let me know...and i can check to see if this will help you