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]Mensagem ao imprimir

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Agravina em 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 100%

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

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

    Mensagem  Marcelo David em 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 100%

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

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

    Mensagem  Agravina em 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 100%

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

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

    Mensagem  Ismael Silva em 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 100%

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

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

    Mensagem  Agravina em 19/5/2020, 01:10

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

    Respeito às Regras 100%

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

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

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

    Obrigado pelo retorno!

      Data/hora atual: 4/12/2020, 08:07