[Resolvido]Mensagem ao imprimir

Agravina 18/5/2020, 02:50

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº1

[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** 18/5/2020, 14:14

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3948
Registrado : 21/04/2011

Mensagem nº2

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.

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

Access e VBA - Formulário Desacoplado - [Passo a passo]
[Resolvido]Mensagem ao imprimir Yt_16x10

Conheça meu canal no Youtube e se inscreva.
[Resolvido]Mensagem ao imprimir Marcel11

Agravina 18/5/2020, 22:15

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº3

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

Ismael Silva 18/5/2020, 23:40

Ismael Silva

Ismael Silva: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 827
Registrado : 11/12/2017

Mensagem nº4

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