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 : 1551
    Registrado : 18/07/2010

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

    Mensagem  Agravina em Dom 17 Maio 2020 - 21: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 : 3141
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David em Seg 18 Maio 2020 - 9: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
    www.mrdsystem.com.br (em construção)
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Agravina em Seg 18 Maio 2020 - 17: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 : 620
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em Seg 18 Maio 2020 - 18: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 : 1551
    Registrado : 18/07/2010

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

    Mensagem  Agravina em Seg 18 Maio 2020 - 20:10

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

    Respeito às Regras 100%

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

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

    Mensagem  Ismael Silva em Seg 18 Maio 2020 - 21:57

    Obrigado pelo retorno!

      Data/hora atual: Qua 5 Ago 2020 - 15:24