Criei uma tabela chamada Funcionarios
onde eu tenho pelo menos 2 campos:
ID
e caminho_impressao
.
Onde eu coloco por exemplo:
- C:\Users\usuario1\documents\
- C:\Users\usuario2\documents\
Dai eu tentei imprimir um PDF de um relatório da seguinte forma:
Dim FileNamePDF As String
Dim SetDirectoryPDF As String
Dim strRelatorio As String
' set directory to save to
SetDirectoryPDF = DLookup("caminho_impressao", "Funcionarios", "ID=" & login.ID)
'set the filename and save location
strRelatorio = "Relatorio_mensal"
'Tentei e não deu
'FileNamePDF = SetDirectoryPDF & strRelatorio & ".pdf"
FileNamePDF = CStr(SetDirectoryPDF) & strRelatorio & ".pdf"
MsgBox FileNamePDF
DoCmd.OutputTo acOutputReport, strRelatorio, acFormatPDF, FileNamePDF, False
Mas não consegui gerar o arquivo. Aparece a seguinte mensagem de erro:
Pergunta
Como posso lidar com este erro em particular?