Commondialog.show Printer

[Fireboard]

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

[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

[Snoopy]

Só complementado a minha resposta acima(rs...) o número do erro gerado é

32755

um exemplo de aplicação:

On Error Resume Next
CommonDialog1.ShowPrinter
If Err.Number = 32755 Then
    'Realiza o que você quizer quando for cancelado
End If

[Fireboard]

Beleza fera, é isso mesmo!

muito obrigado

[Ander]

Cara me tira uma duvida com eu faço pra exibir esse CommonDialog1.ShowPrinter

Me ajude por favor

[Ander]

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

[Fireboard]

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

...