Prezados bom dia ..
Pode parecer uma dualidade no titulo desse tópico, mas é mais pura verdade.
Eis o código que eu estou a usar para gerar um relatório em PDF:
Private Sub bt_geraPDF_Click()
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Cotação Nº" & Me!NOrcam & ".pdf"
strLocal = CurrentProject.PATH & "\enviados\" & strArquivo
DoCmd.OpenReport "rptOrca", , , "IDOrca=" & Me!IdOrca, acHidden
DoCmd.OutputTo acOutputReport, "rptOrca", acFormatPDF, strLocal --> nessa linha que temos o problema
DoCmd.Close acReport, "rptOrca"
End Sub
A mensagem que aparece é : Erro de tempo de execução '2282':
O formato no qual você está tentando enviar o objeto atual não está disponível.
Mas o mais estranho é que abre a caixa para salvar em formato PDF!
Será que falta alguma referência a isso ?
Eu estou a utilizar o CutePDF Writer.
Se alguém puder me ajudar fico agradecido !!!
Abraços.
Pode parecer uma dualidade no titulo desse tópico, mas é mais pura verdade.
Eis o código que eu estou a usar para gerar um relatório em PDF:
Private Sub bt_geraPDF_Click()
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Cotação Nº" & Me!NOrcam & ".pdf"
strLocal = CurrentProject.PATH & "\enviados\" & strArquivo
DoCmd.OpenReport "rptOrca", , , "IDOrca=" & Me!IdOrca, acHidden
DoCmd.OutputTo acOutputReport, "rptOrca", acFormatPDF, strLocal --> nessa linha que temos o problema
DoCmd.Close acReport, "rptOrca"
End Sub
A mensagem que aparece é : Erro de tempo de execução '2282':
O formato no qual você está tentando enviar o objeto atual não está disponível.
Mas o mais estranho é que abre a caixa para salvar em formato PDF!
Será que falta alguma referência a isso ?
Eu estou a utilizar o CutePDF Writer.
Se alguém puder me ajudar fico agradecido !!!
Abraços.