Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Confirmar impressao
 
Notifications
Clear all

Confirmar impressao

 
Página 2 / 2
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
16 Posts
4 Usuários
0 Reactions
1,592 Visualizações
RSS
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
Topic starter
 

Inseri em um codigo uma confirmação de impressao

Algo assim

sub imprimir
Dim resposta as string

for a = xxxx

 Resposta = MsgBox("Deseja Imprimir o documento", vbYesNo, "Imprimindo documento")

        If Resposta = vbYes Then


'Imprime documento

else

'Salva em pdf

End if

next  a

Meu problema essa confirmação esta dentro de um loop e assim ele se repete dezenas de vezes

Alguma solução que nao seja chamar a rotina em separado.

A ideia é nao ter que escrever duas rotinas.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 20/02/2016 10:06 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
Topic starter
 

Nao consegui adaptar o codigo do Osvaldo, e pelo jeito vou ter que escrever os dois codigos e chamar as rotinas atraves de uma terceira.

Ficando assim:

Sub ImprimirPDF()

Dim Resposta    As String

Resposta = MsgBox("Deseja Imprimir o Documento!!", vbYesNo, "Imprimindo ....")

        If Resposta = vbYes Then
       Call Imprimir
        Else
        Call GerarPDF
        End If

End Sub

Desta forma funciona mas tive que escrever as duas rotinas em separado.

Gostaria fazer tudo em uma só

Não vou marcar como resolvido, pra ver se aparece uma solução.

Mas acho que nao.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 21/02/2016 8:25 pm
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico