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

    [Resolvido]Mensagem ao imprimir

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1562
    Registrado : 18/07/2010

    [Resolvido]Mensagem ao imprimir Empty [Resolvido]Mensagem ao imprimir

    Mensagem  Agravina 18/5/2020, 02:50

    Como posso adaptar uma msg imprimir sim ou não
    neste código abaixo

    If DLookup("impressora= '58mm'", "tblimpressora") Then
    Call imprimir58mm
    Else
    Call imprimir80mm
    End If
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3324
    Registrado : 21/04/2011

    [Resolvido]Mensagem ao imprimir Empty Re: [Resolvido]Mensagem ao imprimir

    Mensagem  Marcelo David 18/5/2020, 14:14

    Bom dia,
    Não entendi bem o que pretende...

    Se é uma mensagem que espere uma resposta,
    basta por antes do if ou antes de sub que imprimi.


    .................................................................................
    Marcelo David | [Resolvido]Mensagem ao imprimir LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1562
    Registrado : 18/07/2010

    [Resolvido]Mensagem ao imprimir Empty Re: [Resolvido]Mensagem ao imprimir

    Mensagem  Agravina 18/5/2020, 22:15

    Olá marcelo
    O pretendo e uma mensagem"Deseja Imprimir"
    Sim ou não
    Mas não to acertando
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Mensagem ao imprimir Empty Re: [Resolvido]Mensagem ao imprimir

    Mensagem  Ismael Silva 18/5/2020, 23:40

    Não seria algo tipo assim?



    If MsgBox("Deseja realizar a impressão?", vbYesNo, "Impressão") = vbYes Then

    If DLookup("impressora= '58mm'", "tblimpressora") Then
    Call imprimir58mm
    Else
    Call imprimir80mm
    End If
    End If

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1562
    Registrado : 18/07/2010

    [Resolvido]Mensagem ao imprimir Empty Re: [Resolvido]Mensagem ao imprimir

    Mensagem  Agravina 19/5/2020, 01:10

    Perfeito
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 750
    Registrado : 11/12/2017

    [Resolvido]Mensagem ao imprimir Empty Re: [Resolvido]Mensagem ao imprimir

    Mensagem  Ismael Silva 19/5/2020, 02:57

    Obrigado pelo retorno!

      Data/hora atual: 17/6/2021, 18:48