COMMOM DIALOG

USUARIO.EXCLUIDOS 11/04/2007 07:35:55
#211145

Pessoal , como eu faço para quando eu der o showprinter do commom dialog e clicar no botao cancelar ele nao imprimir ?

CommonDialog1.ShowPrinter

If CommonDialog1.cancel Then

MsgBox "vc clicou em cancelar"
End If

nao tem esse metodo cancel , so coloquei como ilustração, queria algo assim, sera que alguem sabe ?

USUARIO.EXCLUIDOS 11/04/2007 08:42:22
#211156

cara, ate entendi oq voce perguntou sinceramente eu nao conheço... com certeza deve ter. um modo de contornar seria esse


[c]Private Sub Command1_Click()
If MsgBox("deseja imprimir?", vbOKCancel + vbInformation) = vbOK Then
    CommonDialog1.ShowPrinter
Else
    MsgBox "impressao cancelada!"
    Exit Sub
End If
End Sub

espero que ajude em alguma coisa

abraços
[/c]

USUARIO.EXCLUIDOS 11/04/2007 08:50:38
#211158

eltao, muito obrigado pela atenção , mas queria mesmo cancelar naquele botao cancela do proprio showprint, obrigado

HUGOSSOUZA 11/04/2007 08:54:16
#211159

tenta assim:

On Error GoTo erro:

cmd.ShowPrinter
cmd.CancelError = True

MsgBox "Clicou em ok"
Exit Sub

erro:
   MsgBox "Clicou em Cancelar" & Chr(13) & Err.Description
exit sub

USUARIO.EXCLUIDOS 11/04/2007 09:31:30
#211162

hugo, deu essa mensagem de erro

cancel was selected - 32755

HUGOSSOUZA 11/04/2007 09:55:32
#211163

você colocou todo o código?
tme que colocar tudo.. atÃ© o "on error"

USUARIO.EXCLUIDOS 11/04/2007 10:01:57
#211165

sim, coloquei

HUGOSSOUZA 11/04/2007 10:14:45
#211169

tenta assim.. coloca o cancelerror antes de abrir o show printer

On Error GoTo erro:

cmd.CancelError = True
cmd.ShowPrinter

MsgBox "Clicou em ok"
Exit Sub

erro:
MsgBox "Clicou em Cancelar" & Chr(13) & Err.Description
exit sub

USUARIO.EXCLUIDOS 11/04/2007 10:44:54
#211174

On Error GoTo erro:

cmd.CancelError = True
cmd.ShowPrinter


MsgBox "Clicou em ok"
Exit Sub

erro:
if err.number = 32755 then
   MsgBox "Clicou em Cancelar" & Chr(13) & Err.Description
End if
exit sub

USUARIO.EXCLUIDOS 11/04/2007 11:18:15
#211188

o mesmo erro

cancel was selected - 32755

se vc clicar em imprimir ele da a mensagem correta, ai depois vc faz uma segunda vez e clica em cancelar da esse erro acima.

codigo fonte

Private Sub Command1_Click()
    On Error GoTo erro
    
    cmd.CancelError = True
    cmd.ShowPrinter
    
    
    MsgBox "Clicou em ok"
    Exit Sub

erro:
    If Err.Number = 32755 Then
       MsgBox "Clicou em Cancelar" & Chr(13) & Err.Description
    End If

End Sub

RAFAEL.GRILLO 11/04/2007 11:32:53
#211195

Cara, seguinte.... Existe uma propriedade da CommonDialog que se chama CancelError. Quando vc coloca essa propriedade como TRUE, toda vez que o botão cancelar for pressionado o erro 32755 será reproduzido, desta maneira vc consegue tratá-lo em uma função de erro.

Veja o exemplo (Não esqueça de colocar a propriedade CancelError como TRUE):

Private Sub Form_Load()

On Error GoTo HandleError

CommonDialog1.ShowPrinter

Exit Sub

HandleError:

    MsgBox "O botão cancelar foi pressionado, posso dar exit na sub!"

End Sub

Página 1 de 2 [12 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar