Printer won't switch

[DS]

I'm using application.printers and for whatever reason the printers
stopped switching. The report will only print with whatever I set the
report to from design view.... am I missing something here?

Set Application.Printer = Application.Printers(Me.TxtName.Value)
DoCmd.OpenReport "rptPrepSlip",,,"PDCheckID = " & Me.TxtCheckID & " And
PDPrinterID = " & Me.TxtNumber & ""
Set Application.Printer = Nothing

Thanks
DS