About Us

\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

Quote:

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

--
Message posted via http://www.officekb.com

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatically choosing a printer to use	Joe D	Excel Discussion (Misc queries)	1	May 27th 09 12:39 PM
Printing with B&W printer	edwardpestian	Excel Discussion (Misc queries)	1	July 25th 06 04:56 AM
Printing from default printer	Susan	Excel Discussion (Misc queries)	1	February 1st 06 04:23 PM
Printing Text to Printer	ronf	Excel Programming	0	January 13th 04 06:31 PM
Printing To A Specified Printer	Steven Pearl	Excel Programming	6	January 6th 04 09:14 PM

Menu

About Us