VBA Noob formulated on Tuesday :
On Aug 15, 11:08*pm, GS wrote:
Jim Cone laid this down on his screen :

Another option is to display a list of available printers and have the user
choose the printer to use.
Selecting an item changes the active printer...
'---
Sub PrinterSelectionDemo()
*Dim bChoice As Boolean
*bChoice = Application.Dialogs(xlDialogPrinterSetup).Show(Act ivePrinter)
*If Not bChoice Then
* * MsgBox "User cancelled"
*Else
* *MsgBox ActivePrinter
*End If
End Sub

Nice solution, Jim! Never thought of it myself but this clearly is the
best solution in the end. Thanks for sharing this...

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Thanks Jim,

I came up with this idea but user then wanted the tick whole workbook
option but can tweak you're code to do that.
If Application.ActivePrinter Like "*pdf*" Then
ActiveWorkbook.PrintOut Copies:=1
Else
Application.Dialogs(xlDialogPrint).Show
End If

Thanks again to both of you.

Danny

Why not just show the dialog at all times? Then the user can choose
printer AND what to print all in one place!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc