MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 28/8/2019, 16:45

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    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 28/8/2019, 17:48

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 28/8/2019, 18:52

    Obrigado Thiago

    Ajudou mesmo .


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

    Conteúdo patrocinado


    [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  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 00:30