COMMOM DIALOG
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 ?
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 ?
cara, ate entendi oq voce perguntou sinceramente eu nao conheço... com certeza deve ter. um modo de contornar seria esse
espero que ajude em alguma coisa
abraços
[/c]
[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]
eltao, muito obrigado pela atenção , mas queria mesmo cancelar naquele botao cancela do proprio showprint, obrigado
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
hugo, deu essa mensagem de erro
cancel was selected - 32755
cancel was selected - 32755
você colocou todo o código?
tme que colocar tudo.. até o "on error"
tme que colocar tudo.. até o "on error"
sim, coloquei
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
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
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
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
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
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):
Lembrando também que o código "on error goto" deve estar antes do commondialog1.showprinter
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
Lembrando também que o código "on error goto" deve estar antes do commondialog1.showprinter
Tópico encerrado , respostas não são mais permitidas