[Resolvido]Problemas em criar documentos em PDF no win 8, com office 2007

Boa noite

Com este comando sempre criei os documentos em PDF com Windows 7 e Office 2007, e com os ficheiros, (StrStorage.dll) e (dynapdf.dll), na mesma diretoria da BD.

Private Sub Comando54_Click()

If MsgBox("Confirma a Impressão do Stock ", vbYesNo, "Conforlar") = vbYes Then
DoCmd.OpenReport "Stock", acPreview
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("Stock", vbNullString, Caminho & "Stock Preço Venda " & Date & ".PDF", False, False)
On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
End If

End Sub

Agora que estou com Windows 8 64 bits e Office 2007 32 bits, não cria os documentos em PDF

Alguma ideia ?

Obrigados

Já tentou utilizar o recurso próprio do Access para isso?

Criquio

Obrigado pela ideia....

Será que o win 8 64 não reconhece as DLL ?

Resolvi assim

On Error Resume Next
If MsgBox("Confirma a Impressão do Stock ", vbYesNo, "Conforlar") = vbYes Then
DoCmd.OpenReport "Stock", acPreview
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Stock" & "_" & Format$(Date, "dd-mm-yyyy")
strLocal = Caminho & strArquivo & ".pdf"
DoCmd.OutputTo acOutputReport, "stock", acFormatPDF, strLocal
On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
End If

Você tentou colocar a dll na pasta SysWoW ao invés da System32?

Criquio

Não coloquei DLL nenhuma.
Até as apaguei da pasta da BD

Obrigado