Choosing printer in a printing macro

[\Jean-Jerome Doucet via OfficeKB.com\]

Hi,

In a printing macro, is it possible to implement an menu option to choose the
printer (I have many printers)? If yes, any ideas how?

I quoted my macro.

Thx!

Werner

Sub PrintRows()

Dim lstRw As Long
Dim lstRwPlusTwo As Long
Dim Times As String

'Je détermine le nombre d'unités locatives à traiter.
Let lstRw = Sheets("Formulaire").Range("a65536").End(xlUp).Row
lstRwPlusTwo = lstRw + 2

'With Worksheets("Formulaire").PageSetup
' .PrintTitleRows = "$1:$1"
'End With

Rows(1 & ":" & lstRwPlusTwo).Select

Times = InputBox("Entrez le nombre de copie à imprimer: ", "Copies to Print",
1)

Selection.PrintOut Copies:=Times, Collate:=True


End Sub

 

[DM Unseen]

use

Application.Dialogs(xlDialogPrinterSetup).Show

DM Unseen

 

[\Jean-Jerome Doucet via OfficeKB.com\]

DM Unseen, thank you a lot! It did exactly the right thing.

Have a good day!

JJD