Atualmente tenho relatório que é exibido através de filtro em um formulário conforme código abaixo:
Gostaria de ao inves de exibi-lo já exportá-lo diretamente para pdf e fechar o relatório após a exportação, tentei substituir a linha DoCmd.OpenReport strDocName, acViewPreview, , strFilter
pela linha:
DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityPrint, , strFilter
Mas não funcionou, acho que errei no docmd.outputto
Private Sub Comando61_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Consulta gerar cab relatorio extrato sub-relatório-contabil"
strFilter = "NUMERADOR = Forms!GerarProtocoloCabcontabil!NUMERADOR"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
' DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityPrint, , strFilter
DoCmd.Close acReport, strDocName
End Sub
Gostaria de ao inves de exibi-lo já exportá-lo diretamente para pdf e fechar o relatório após a exportação, tentei substituir a linha DoCmd.OpenReport strDocName, acViewPreview, , strFilter
pela linha:
DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityPrint, , strFilter
Mas não funcionou, acho que errei no docmd.outputto
Private Sub Comando61_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Consulta gerar cab relatorio extrato sub-relatório-contabil"
strFilter = "NUMERADOR = Forms!GerarProtocoloCabcontabil!NUMERADOR"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
' DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityPrint, , strFilter
DoCmd.Close acReport, strDocName
End Sub