Set Default Printer

[jo15765]

Access 2000 - how can I set the default printer when a report loads and change it back to the original printer when the form closes? I tried this

    Set Printer = Printers("Adobe PDF")
    Set Printer = Nothing

But it hits the Printers and throws an error of Sub or Function Not defined.

Also, I do not want to give the user a choice of selecting printer, I want it to be set totally from the VBA

[ranman256]

This is not setting defaut printer. Setting default printer means setting it and leaving it as DEFAULT.
you want to change the destination printer of the report.
to force the report to the printer you want...

dim rpt as report
sRpt = "rRpt"
DoCmd.OpenReport sRpt, acViewDesign
Set rpt = Reports(sRpt)
Set rpt.Printer = prtTarget 
DoCmd.OpenReport sRpt  'print
DoCmd.close acReport, rpt.Name, acSaveNo    'dont save
Set rpt = Nothing

[jo15765]

It looks to me like the printer I want to use is prtTarget. Where do I set prtTarget?

[orange]

You may get some ideas and code from this link.

[jo15765]

what is the command to get the report to autoprint? acprint is not working

[jtgarrison]

DoCmd.OpenReport "ReportName", acViewNormal