Ir para conteúdo
Fórum Script Brasil
  • 0

Commondialog.show Printer


Fireboard

Pergunta

Pessoal é o seguinte:

commondialog.show printer

Eu seleciono a impressora que desejo imprimir, clico em ok e o sistema imprime normalmente, até aí tudo bem, mas, se por acaso clico em cancelar o sistema imprime mesmo assim.

Como faço para que se for clicado em cancelar o sistema não imprima?

Procurei no forum mas não encontrei algo parecido.

Obrigado

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Guest - Júlio César -

Uma forma que eu uso é habilitar a função CancelError.

assim todas vez que clicarem sobre cancel, gerará um erro.

Sobre o erro gerado, você saberá quando o Cancel for pressionado.

Júlio

Link para o comentário
Compartilhar em outros sites

  • 0

Estou tendo esse mesmo erro coloquei esse codigo acima mas ainda quando clico em cancelar manda a impressão para impressora

meu codigo:

Private Sub Command3_Click()

On Error Resume Next

CommonDialog1.ShowPrinter

If Err.Number = 32755 Then

'Realiza o que você quizer quando for cancelado

End If

Printer.Print Label1

Set rs = Adodc2.Recordset 'só pra encurtar o nome

Do While Not rs.EOF

Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade").Value

rs.MoveNext

Loop

Printer.EndDoc

End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Ander, para você inserir o objeto common dialog você deve adicionar o componente Microsoft Windows Common Dialog 6.0 no menu Project / Components ou digitar CTRL T.

-----------------------------------------

CommonDialog1.ShowPrinter

Você pode fazer isso de várias formas:

on error resume next

If Err.Number = 32755 Then

exit sub ' sai fora da sub e não imprime nada

endif

ou

on error resume next

if err.number <> 32755 then

... ' realiza a impressão

...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...