Dialog to select a printer... 2

[Paco75]

Hi,

I want to put a dialog box to select a printer in my excel macro... it must return the printer name (like //MyServer/ThePrinter) Does anyone knows?

thanks

 

[Paco75]

I found a way to do so... I'm not sure it's the best one but it works... here it is:

'Pop-up a dialog to select a printer
Application.Dialogs(xlDialogPrinterSetup).Show

'Get the active printer name (the one selected in dialog)
printerName = Application.ActivePrinter

'Remove the last extra chars to leave only
'the //Server/Printer in the printerName
Y = InStr(printerName, " &quot
If Y = 0 Then
Y = 1
End If
printerName = Mid(printerName, 1, Y - 1)

'Send the .srq file to the printer
Shell (&quot;cmd /C &quot;&quot;copy &quot;&quot;&quot; + <file path and name> + &quot;&quot;&quot; &quot; + printerName + &quot;&quot;&quot;&quot

Hope it helps someone! Bye

 

[RobBroekhuis]

Cool! I've never come across that dialog in normal interactions with Excel. Looks like something Bill put in for the benefit of VBA programmers

Rob