Bom dia,
Ao finalizar o relatório... Preciso gerar PDF individual por nome. É possível?
Ao finalizar o relatório... Preciso gerar PDF individual por nome. É possível?
Private Sub bt_GPdf_Click()
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Relatório nº" & Me!chaveprimaria & " - " & Me!txt_onde_esta_nome_professor ".pdf"
strLocal = CurrentProject.Path & "\Pasta_onde_vai_ficar_arquivo_PDF\" & strArquivo ' criar essa pasta onde está o banco de dados
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "Nome_do_teu_relatório", acViewPreview, , "Relatório Nº=" & Me!chaveprimaria , acHidden
'
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "Nome_do_teu_relatório", acFormatPDF, strLocal
'Fecha o relatório
DoCmd.Close acReport, "Nome_do_teu_relatório"
End Sub