Simple Printer Prompt Macro

Question

Afternoon

I am creating a simple macro Ribbon for use for Printing purposes only

As we use Office 2010 I was wondering if there is a script or VBA line I could have on the ribbon that when pressed allows the user to select their default printer form a drop down of some sort

We don't want anything too complex but simply by clicking on this they are presented with the installed printers they have access to and can simply select one as the default printer

instead of going the long winded way via File > Print and selecting the printer form here

Hope this makes sense

The user can then simply select their printer and then they can print using our own created macros ensuring that it is going to their correct printer

Barrie

Answer 1

You've asked about Word but gotten an Excel-specific reply.

Even though you've chosen Word as the subject of your question, it's always a good idea to mention the Office application in the body of your question.

You might want to ask about this in the Word-specific section of Answers also.

Answer 2

Hi James

thanks for this

I get an error when running stating 'the requested member of the collection does not exist'

the debug appears to point to this line:

bChoice = Application.Dialogs(xlDialogPrinterSetup).Show(ActivePrinter)

Should I have something in place for this to work?

Barrie

Answer 3

Re:  list of printers

You will have to do the ribbon button code (xml) or add a macro button to the Quick Access toolbar...

'---

Sub ShowPrinterSelection()

'James Cone - Portland, Oregon USA

 Dim bChoice As Boolean

 bChoice = Application.Dialogs(xlDialogPrinterSetup).Show(ActivePrinter)

'optional code below

 If Not bChoice Then

    MsgBox "User cancelled"

 Else

   MsgBox ActivePrinter

 End If

End Sub

'---

Jim Cone

Portland, Oregon USA

free & commercial excel programs  (n/a xl2013)

https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2

-or-

http://jmp.sh/K95N3ee