Bom dia!
Eu pesquisei na rede e não obtive uma solução para minha dúvida, portanto, gostaria de saber se é possível eu criar um botão que, ao clicar nele, automaticamente ele gera o PDF do Relatório e o envia para a Nuvem (OneDrive, SharePoint ou Teams Equipes).
Para salvar localmente, eu uso este modelo:
Mas para a núvem, eu não sei se é possível
Eu pesquisei na rede e não obtive uma solução para minha dúvida, portanto, gostaria de saber se é possível eu criar um botão que, ao clicar nele, automaticamente ele gera o PDF do Relatório e o envia para a Nuvem (OneDrive, SharePoint ou Teams Equipes).
Para salvar localmente, eu uso este modelo:
- Código:
Private Sub BtnPDFSRet_Click()
On Error Resume Next
Dim StrLocal As String
Dim StrArquivo As String
'Nome do Protocolo a ser salvo
StrArquivo = "NF-es EMITIDAS - Sem Retorno - " & _
Format(Now(), "ddmmyyyyhhnnss") & ".pdf"
'Local onde o Protocolo será salvo
StrLocal = "\\192.168.0.251\Contabilidade\BANCO DE DADOS\Relatórios\Sem Retorno\" & StrArquivo
'Abre o Relatório Ocultado
DoCmd.OpenReport "RelDFsEmitSRet", acViewPreview, , , acHidden
'Gera o arquivo PDF do Relatório previamente Aberto
DoCmd.OutputTo acOutputReport, "RelDFsEmitSRet", acFormatPDF, StrLocal, True, , , acExportQualityPrint
'Fecha o Relatório
DoCmd.Close acReport, "RelDFsEmitSRet"
'Mensagem final ao Salvar o protocolo
MsgBox ("Relatório gerado com sucesso!" & _
vbCrLf & StrLocal), vbInformation, "Gerar Relatório em PDF"
End Sub
Mas para a núvem, eu não sei se é possível
Última edição por Alexandre Neves em 7/2/2022, 19:58, editado 1 vez(es) (Motivo da edição : Título corrigido (de Exportar Relatório PDF para núvem automaticamente para Exportar Relatório PDF para nuvem automaticamente))