Fonction vb

Bonjour,
J'ai recuperer un code source de Argyronet sur developpez.com (https://access.developpez.com/sources/?page=Etat#ExportPDF) pour exporter un etat en pdf sur access, j'ai cependant un probléme à l'execution de l'export.
Lorsque j'execute la procédure un message d'accueil 'Erreur de compilation: Sub ou Function non définie' dans le code suivant et la ligne souligné est en surbrillance:

Private Sub subCreatePDFFromReport(ByVal ReportName As String, _
ByVal PDFFileName As String)

'Code pour Creer EXPORT ETAT EN PDF
'Code pris sur developpez.com

originalPrinter = fnctGetDefaultPrinter()
SetDefaultPrinter "Acrobat PDFWriter"
subRegistrySetKeyValue rootHKeyCurrentUser, _
"Software\Adobe\Acrobat PDFWriter\", "PDFFileName", _
PDFFileName, RRKREGSZ

DoCmd.OpenReport ReportName, 0
SetDefaultPrinter originalPrinter
End Sub

Je ne comprend pas l'erreur est j'ai bien initialiser la fonction, la voila:

Private Sub SetDefaultPrinter(ByVal PrinterName As String)
Dim Buffer As String
Dim DeviceName As String
Dim DriverName As String
Dim PrinterPort As String
Dim DeviceLine As String
Buffer = Space(1024)
Call GetProfileString("PrinterPorts", PrinterName, vbNullString, _
Buffer, Len(Buffer))
subGetDriverAndPort Buffer, DriverName, PrinterPort
If DriverName <> vbNullString And PrinterPort <> vbNullString Then
DeviceLine = PrinterName & "," & DriverName & "," & PrinterPort
Call WriteProfileString("windows", "Device", DeviceLine)
End If
End Sub

Si quelqu'un pouvait m'aider ça m'arrengerai beaucoup Merci

Configuration: Windows XP
Internet Explorer 6.0