MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4215
    Registrado : 06/11/2009

    [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela Empty [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela

    Mensagem  Assis em Qua 28 Ago 2019, 11:45 am

    Boa tarde Amigos

    A linha abaixo cria PDF para os produtos da tabela.

      DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal

    Queria adicionar a condição abaixo, para criar só Um produto + ou - isto ????

    DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"

    '--------------------------------------------------------------------------------------------

    Obrigado

    Código completo:

    If MsgBox("Confirma a Impress?o do Modelo da Ref. da " & [Ref] & "" & Chr(13) & " Modelo " & [Modelo] & "", vbYesNo, "Aviso") = vbYes Then

    If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
    Dim Caminho As String
    Caminho = BackEndPath & "\PDF\"

    Dim strArquivo As String
    Dim strLocal As String
      strArquivo = "Ficha de Modelo da Ref - " & [Ref] & " - " & [Modelo] & " " & [Linha] & ""
      strLocal = Caminho & strArquivo & ".PDF"
    'Gera arquivo pdf do relat?rio previamente aberto.
      DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal

    On Error Resume Next
    If err = 2501 Then
    err.Clear
    DoCmd.Close
    End If
    Else
    End If
    DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
    End If


    .................................................................................
    *** Só sei que nada sei ***
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela Empty Re: [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela

    Mensagem  thiagomcosta em Qua 28 Ago 2019, 12:48 pm

    Eu utilizo o seguinte código:

    Código:
    'Cria o arquivo PDF
    DoCmd.OpenReport "rl_OS", acViewPreview, , "NumOS= '" & NumOS & "'", acHidden
    DoCmd.OutputTo acOutputReport, "rl_OS", acFormatPDF, Environ("USERPROFILE") & "\Desktop\" & NumOS & ".pdf", False
    DoCmd.Close acReport, "rl_OS"

    Que salva o arquivo PDF na área de trabalho do usuário.

    Eu abro o relatório oculto e depois exporto o relatório para pdf.
    Fica fácil adaptar ao seu caso.

    Esta solução achei em algum tópico neste fórum, infelizmente que não me recordo qual.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4215
    Registrado : 06/11/2009

    [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela Empty Re: [Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela

    Mensagem  Assis em Qua 28 Ago 2019, 1:52 pm

    Obrigado Thiago

    Ajudou mesmo .


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Qui 13 Ago 2020, 8:12 pm