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]Fechar Relatório após a impressão por código

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Fechar Relatório após a impressão por código

    Mensagem  formiga10x em Qua 06 Nov 2013, 13:45

    Bom dia novamente como hoje estou de folga resolvi dar um pega no programa e sanar algumas lacunas e para isso conto com ajuda de vcs amigos do Fórum.
    É o seguinte: Gostaria de após esse comando...

    If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
    DoCmd.PrintOut

    O Rcupom se fechasse sozinho.

    Desde já agradeço e fiquem com Deus.
    avatar
    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 08/10/2012

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  Ney em Qua 06 Nov 2013, 14:14


    Amigo ele ficaria assim, faça o teste.

    att;

    Ney


    If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    DoCmd.OpenReport "RCupom", acViewPreview, , , , txtCodigoVenda
    DoCmd.PrintOut
    DoCmd.Close acForm, "RCupom"

    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em Qua 06 Nov 2013, 15:49

    Deu certo não
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    Registrado : 04/11/2009

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em Qua 06 Nov 2013, 16:07

    Quer fechar o relatorio ou o form ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em Qua 06 Nov 2013, 16:14

    Só o Relatório JPaulo pois, ao concluir a venda mostra o relatório exibindo o recibo e já encaminhando para a impressão. Mas, não sei por cargas d'agua que o danado mesmo com Pop-up não é exibido e assim me dando a opção de fecha-lo manualmente e com isso o form venda fica inacessível, por não achar a solução de o porque ele não aparece pensei em um código que após ele abrir se feche sozinho pois o mesmo não é visível...
    Grato.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    Registrado : 04/11/2009

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em Qua 06 Nov 2013, 16:19

    Assim;

    Código:

    Private Sub Command16_Click()
    On Error GoTo 1
    'abre o relatorio
           DoCmd.OpenReport "RCupom", acViewReport, , , , Me.txtCodigoVenda
    'pergunta se quer imprimir
       If MsgBox(" Deseja imprimir a venda?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then
    'se sim, imprime e fecha
            DoCmd.PrintOut
            DoCmd.Close acReport, "RCupom", acSaveYes
            Else
    'se não quer imprimir, fecha apenas a visualização
            DoCmd.Close acReport, "RCupom", acSaveYes
            Exit Sub
        End If
    1:
     
        If Err.Number = 2501 Then
            MsgBox "Impressão cancelada.....", vbOKOnly
            Exit Sub
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  formiga10x em Qua 06 Nov 2013, 16:42

    JPaulo o código que vc me passou está correto! O problema é que eu coloquei para não exibir o access quando iniciasse a aplicação. Contudo testei em modo debug e o código que me passou funcionou corretamente agora vou ver se acho um jeito para não exibi-lo então até porque não é necessário que ele apareça.
    Grato pelo seu tempo e que Deus os abençoe.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    Registrado : 04/11/2009

    Re: [Resolvido]Fechar Relatório após a impressão por código

    Mensagem  JPaulo em Qua 06 Nov 2013, 16:45

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 17 Ago 2017, 02:50