none
Erro 2059: RRS feed

  • Pergunta

  • Tenho uma base de dados em Acess 2016 e necessitava que em vez de ter que abrir o formulário e depois escolher a impressora, gostaria de fazer logo a impressão em pdf.

    Escrevi a seguinte expressão, mas continua a dar o erro 2059: BD não consegue localizar objecto '|1'

    Private Sub ImpFT_PDF_Click()
    
    On Error GoTo Err_ImpFT_PDF_Click
    
        Dim stDocName As String
        Dim strArquivo As String
        Dim strLocal As String
        
        strArquivo = Me.Designacao & Me!Designacao & ".pdf"
        strLocal = CurrentProject.Path & "\FT\" & strArquivo
        
        'stDocName = "FichaTecnica01"
        
        stDocName = Forms!rotulos.Controls!ModeloFT
        
        'Abre formulário
        DoCmd.OpenReport stDocName, acViewPreview, "FT-PDF"
        
        'Gera o pdf
        DoCmd.OutputTo acOutputReport, "FT-PDF", acFormatPDF, strLocal
        
        'Fecha o formulário
        DoCmd.Close acForm, "FT-PDF"
        'DoCmd.OpenReport "FT-PDF", acViewPreview
        
      
        
    Exit_ImpFT_PDF_Click:
        Exit Sub
        
    Err_ImpFT_PDF_Click:
    
        If Err.Number = 94 Then
           MsgBox "Não existe nome de relatório definido"
        Else
           MsgBox Str(Err.Number) + ": " + Err.Description
        End If
        Resume Exit_ImpFT_PDF_Click
        
    End Sub

    A query funciona bem, mas não consigo perceber onde está o erro.


    sexta-feira, 13 de dezembro de 2019 16:55

Todas as Respostas

  • cacpires,

       Estava fuçando na teia sobre seu problema e achei algo interessante, talvez seja isso:

    "...Tens de criar primeiro a pasta de destino..."

    ================================
    Erro ao Gerar PDF e Imprimir

    Private Sub btn_gerar_relatorio_Click()
    Dim strArquivo As String
    Dim strLocal As String
    Dim strDocumento As String
    
       Select Case MsgBox("DESEJA CRIAR PDF?", vbInformation + vbYesNoCancel, "Agendamento do Treinamento")
       Case vbYes
          DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
          DoCmd.Maximize
    
          strLocal = CurrentProject.Path & "\Pasta"
          strDocumento = "Relatório de Agendamento"
    
          DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf"
          DoCmd.OutputTo acOutputReport, "Agendamento do Treinamento", acFormatPDF, strLocal
       End Sub

    https://www.maximoaccess.com/t27487-erro-ao-gerar-pdf-e-imprimir
    ================================

       Você criou antes a pasta de destino "\FT\" onde será salvo o arquivo?

    []'s,
    Fabio I.
    • Editado Fabio I sexta-feira, 13 de dezembro de 2019 17:37
    sexta-feira, 13 de dezembro de 2019 17:36
  • A pasta de destino já estava criada antes de ter escrito o código.

    Mas vou testar o código que enviou

    sexta-feira, 13 de dezembro de 2019 17:51
  • C. Pires,

       Veja o link também.

    []'s,
    Fabio I.
    sexta-feira, 13 de dezembro de 2019 17:53