MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Imprimir e PDF no mesmo botão de comando

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Assis em 22/3/2019, 11:33

    Bom dia Amigos

    No comando abaixo confirmo a abertura da ficha de um produto e pergunto se quer criar PDF desse produto.

    A ficha aberta está certo, abre só uma.

    Mas o PDF é criado para todos os Produtos, como criar só para o Produto desejado.

    Obrigado


    If MsgBox("Confirma a Impressão da Ficha Técnica da Ref. da " & [ref] & "" & Chr(13) & " Tipo " & [Tipo] & "", 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 Custo da Ref - " & [ref] & " - " & [Tipo] & " " & [Prod_Descricao] & ""
    strLocal = Caminho & strArquivo & ".PDF"
    'Gera arquivo pdf do relat?rio previamente aberto.

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

    If err = 2501 Then
    err.Clear
    DoCmd.Close
    End If
    DoCmd.OpenReport "Produtos", acViewPreview, "", "[Produtos]![sysid]=[Forms]![FrmProduto]![sysid]"
    Else
    End If
    End If


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty Re: [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Silvio em 22/3/2019, 11:43

    Boa tarde Assis....

    Não está faltando a chave primária ai no código não ?

    strArquivo = "Ficha de Custo da Ref - " & [ref] & " - " & [Tipo] & " " & [Prod_Descricao] & ""

    Veja abaixo um código que eu uso para o mesmo fim ...

    Código:

    Private Sub bt_GPdf_Click()
    Dim strArquivo As String
    Dim strLocal As String

    ' nome do arquivo a ser salvo    
    strArquivo = "Pedido  " & Me!NossoPedido & " - " & Me!Cliente & "-" & Me.Forneoculta & ".pdf"
    strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo ' criar essa pasta ( pedidos ) onde está o banco de dados

     'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "RptPedido", acViewPreview, , "codped=" & Me!CodPed, acHidden ' codped é a chave primária, onde realizo a filtragem
     '                           nome do relatorio                  chave prima       chave prima

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF, strLocal

     'Fecha o relatório
    DoCmd.Close acReport, "RptPedido"

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty Re: [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Assis em 22/3/2019, 11:55

    Obrigado Silvio

    Abraço

    cheers  A chave é tudo  cheers


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty Re: [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Silvio em 22/3/2019, 12:04

    Isso mesmo...

    Qualquer coisa, estamos aqui.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty Re: [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Assis em 22/3/2019, 13:19

    Obrigado

    bounce bounce Olha o resolvido … ehehehe


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

    Conteúdo patrocinado

    [Resolvido]Imprimir e PDF no mesmo botão de comando Empty Re: [Resolvido]Imprimir e PDF no mesmo botão de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/12/2019, 01:02