Hi, I am trying to output a report from MS Access to PDF. Below are my
codes but i want the pdf file name to be strFileName but its not giving
me the file name that i want as a default.
Can someone tell me what i am doing wrong?

Thanks alot

//*****
Private Sub rptFindingReport_Click()
ChangeToAcrobat
Dim strFileName As String
strFileName = Me.SYS_CODE & "-" & Format(Me.TEST_BEGIN_DATE,
"yyyymmdd")
ChangePdfFileName "strFileName"
DoCmd.OpenReport "FindingReportForAccess", acViewNormal
ResetDefaultPrinter
End Sub
//******

//******
Private drexisting As aht_tagDeviceRec
Const AcrobatName = "Adobe PDF"
Const AcrobatDriver = "Adobe PDF Converter"
Const AcrobatPort = "Data\*.pdf"

Sub ResetDefaultPrinter()
   Call ahtSetDefaultPrinter(drexisting)
End Sub
Function ChangeToAcrobat()
   If ahtGetDefaultPrinter(drexisting) Then
       Dim dr As aht_tagDeviceRec
       With dr
           .drDeviceName = AcrobatName
           .drDriverName = AcrobatDriver
           .drPort = AcrobatPort
       End With
       Call ahtSetDefaultPrinter(dr)
  End If
End Function

Sub ChangePdfFileName(NewFileName As String)

  Call aht_apiWriteProfileString("Adobe PDF", _
           "PDFileName", NewFileName)
End Sub
//*********