how to assign printers to print specific report

[saeedmzm]

MY Dear ,,

how to assign printer to print specific report

i mean to choose one printer available in PC to printer specifically report i had selected




if i move and put the program to another pc >>> i can choose the printer to print the specfic report

[RuralGuy]

Are you still using ac2003? I believe each Report can assign a printer while in the design mode.

[ranman256]

In report design, click Specific printer, set printer,
save.

[saeedmzm]

i want to do that by code or by command

after i have finshed the program and i like to use in another pc

if i use another pc .... i have to assign manually in report
i like to use it by code or command

[Micron]

Application.Printer = Printers(Device Name Of Printer Goes Here)
or use the name of a variable that holds the device name.
Then open the report (I guess not in print preview mode).
Then again, opening the report in print preview would allow anyone to choose the desired printer. Is this because they don't know which one to select for this report?

[saeedmzm]

my dear .... can you post examples
if u do not mind

[Micron]

Application.Printer = Printers(Device Name Of Printer Goes Here)
DoCmd.OpenReport "Name Of Your Report Here"

You will have to provide what comes before and after since you really haven't revealed much.

[June7]

Here is example from my db:

Private Sub btnPrint_Click()
'print to the color printer
Dim strDefaultPrinter As String
'load the current default printer into the variable strDefaultPrinter
strDefaultPrinter = Application.Printer.DeviceName
'switch to Konica printer for color printout
Set Application.Printer = Application.Printers(\\servername\printername )
'try to set printer for color - doesn't work, also tried API coding and that didn't work either
''Application.Printer.ColorMode = acPRCMColor
''Forms("ConcreteMixTools").Printer.ColorMode = acPRCMColor
Me.Detail.BackColor = vbWhite
DoCmd.PrintOut
'change the printer back to the default printer
Set Application.Printer = Application.Printers(strDefaultPrinter)
End Sub

[saeedmzm]

​any more example for this problems

[saeedmzm]

Here is example from my db:

Private Sub btnPrint_Click()
'print to the color printer
Dim strDefaultPrinter As String
'load the current default printer into the variable strDefaultPrinter
strDefaultPrinter = Application.Printer.DeviceName
'switch to Konica printer for color printout
Set Application.Printer = Application.Printers(\\servername\printername )
'try to set printer for color - doesn't work, also tried API coding and that didn't work either
''Application.Printer.ColorMode = acPRCMColor
''Forms("ConcreteMixTools").Printer.ColorMode = acPRCMColor
Me.Detail.BackColor = vbWhite
DoCmd.PrintOut
'change the printer back to the default printer
Set Application.Printer = Application.Printers(strDefaultPrinter)
End Sub

my dear can you upload here the example