Detecting which printer was chosen

[kingnutin]

How can I detect which printer was chosen form the xlDialogPrinterSetup function? At any given time my users can choose to print to a fax, a printer, or a pdf. I would like it to be so that if the printer that was selected was the "Adobe PDF" printer, it would do a sendkeys function to designate the name of the file, otherwise it would just print as normal.

If Application.Dialogs(xlDialogPrinterSetup).Show Then
*** IF PRINTER SELECTED IS ADOBE PDF THEN SENDKEYS FILENAME ***
*** END IF ***
Sheets(SomeSheetName).PrintOut Copies:=1, Collate:=True
End If

 

[Cbrine]

Add this after your If Dialog select. It will give you the currently selected printer.

MsgBox Application.ActivePrinter

HTH
Cal

PS-I'm using XL2003

 

[kingnutin]

I just thought of that! We must be on the same wavelength or something.

What if I made it so that there is a string that Application.ActivePrinter is associated with. How may I make it so that I can search that string to see if it contains "Adobe PDF"
i.e.

someString = Application.ActivePrinter
IF SOMESTRING CONTAINS "Adobe PDF" THEN BLAH BLAH BLAH

Thanks for the reply!

 

[Cbrine]

Something like this.

If Application.ActivePrinter Like "*Adobe PDF*" Then
    MsgBox "Found"
End If

HTH
Cal