você precisa definir a propriedade .UseDefaultPrinter
do relatório como True
.
De aqui , esse código redefinirá a impressora de todos relatórios para o padrão:
For Each obj In CurrentProject.AllReports
DoCmd.OpenReport ReportName:=obj.Name, View:=acViewDesign
If Not Reports(obj.Name).UseDefaultPrinter Then
Reports(obj.Name).UseDefaultPrinter = True
DoCmd.Save ObjectType:=acReport, ObjectName:=obj.Name
End If
DoCmd.Close
Next obj