Sure:
Behind the button I have
Private Sub Command0_Click()
DoCmd.OutputTo acOutputReport, "TodayReport", "PDFFormat(*.pdf)", strPathAndFile = "C:\Users\Adam\Desktop\Test.pdf", True, acExportQualityScreen
End Sub
and as a module named AutoExec I have
Option Compare Database...