Print form to choice of printers

[gg80]

Using A2007. I am trying to print only page 1 of a form using code that allows the user to select one of several printers.
The code I tried is a variation of what I used in the other system computers that use the default printer:

Me.FilterOn = True
Me.Filter = "idquote=" & Me.idQuote & ""
DoCmd.RunCommand acCmdSelectRecord '

DoCmd.PrintOut acPages, 1, 1 '
I replaced the PrintOut command with SendKeys ("^p") '



Me.Filter = "idob=" & Me.IDob & ""

With SendKeys command, the user gets to select the printer but the printout doesn’t limit itself to page 1, so extra non-needed pages are printed.. Is there some way to limit the printout to the first page only and still be able to choose a non-default printer?

Any help much appreciated.

[June7]

Can have code present the user with a list of printers then set default printer. Be sure to first set a variable to the current default so can set it back.

[gg80]

Can have code present the user with a list of printers then set default printer. Be sure to first set a variable to the current default so can set it back.

Thanks for quick reply, but some misunderstanding here. The SendKeys command that I showed in my code presents the user with the list of printers. The problem is that I need to restrict the printing to only the first page of the form.

[June7]

Apparently SendKeys ("^P") just opens printer dialog where user would have to select print range as well as printer destination. Everything I read about SendKeys advises against their use, although I have out of desperation. If you want to control the print range, then cannot use printer dialog which transfers control to the user.

[gg80]

Apparently the phrase I should have used in Google searches was "Access vba set default printer". The one I tested and am using was recommended on a couple of sites. It was defined for A2000 but works fine in A2007. It is available at
http://bytes.com/topic/access/answer...ecific-reports
The simplest solution didn't work, but the more complex one works great.

[gg80]

If don't need a choice of printers but just want to print to a certain non default printer, this works:
Private Sub Command0_Click()
SaveDefaultPrinter
DefaultPrinter = "Canon MG3500 SERIES printer"
DoCmd.OpenForm "FORM1"
DoCmd.PrintOut , 1, 1
RestoreDefaultPrinter
End Sub

[gg80]

Correction:Simple Code above didn't work on some computers in system. More complex code worked consistently.