Duplex printing

[srctr]

I have set up a macro and place a command button on the toolbar that opens a
file and prompts to ask number of copies. My problem is that it doesn't
contain the settings I had set for the printer such as duplex printing and
reducing the print quality down. I recorded the entire sequence but the
macro doesn't seem to include anything I choose after choosing the printer
properties. How do I get it to use the printer I want and the duplex and
print quality I need it to use? It also seems to blink or flash as it is
going through the macro until it gives me the prompt for number of copies.
Maybe I have things in wrong order?

We have a Xerox C2424 printer. My goal is to have a command button for the
user who has to print this to just click the command button and it opens the
file and ask how many copies needed, they can close the file. In the
background it will open the file, make the necessary page setup, duplex and
not enhanced printing and prompt for number of copies needed. When it is
done, they can close the file.

Sub PrintMenu()
'
' PrintMenu Macro
' Macro recorded 5/19/2009 by Colleen A. Owens
'

'
ChDir "S:\Kitchen"
Workbooks.Open Filename:="S:\Kitchen\Lunch Meal Reservation.xls"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
ActiveSheet.PrintOut From:=1, To:=1
ActiveSheet.PrintOut From:=2, To:=TotPages
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 85
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.ActivePrinter = "WorkCentre C2424 PS on Ne00:"
pCnt = InputBox("How Many Copies")
ActiveWindow.SelectedSheets.PrintOut Copies:=pCnt, ActivePrinter:= _
"WorkCentre C2424 PS on Ne00:", Collate:=True
End Sub