Tenho o seguinte código
Private Sub ImprimeFuroPDF_Click()
Dim strArquivo As String
Dim strLocal As String
result = Format(Val(Me!txtdados), "0000")
strArquivo = "R." & result & "_" & carro.Column(0) & "_" & Serviço & ".pdf"
strLocal = CurrentProject.Path & "\pastas1\" & strArquivo
DoCmd.OutputTo acOutputReport, "consulta_relatorio_pneuspdf", acFormatPDF, strLocal
DoCmd.Close acReport, "consulta_relatorio_pneuspdf", acSaveYes
End Sub