got an error code; DoCmd.OutputTo acOutputReport, "report1", acFormatPDF ',' somePath
might review somePath=procedure
simplified embedded macro;
DoCmd.OutputTo acOutputQuery, "query1", "PDFFormat(*.pdf)", "report1", True, "", , acExportQualityPrint
option...