Quando mando imprimir, abre a tela para selecionar a impressora. Se cancelar, imprimi do mesmo jeito. Nao sei o que fazer apos o comando "CR_Relatorio.PrinterSetup (0)" para cancelar a impressão e sair fora da função.

 

Dim CR_Aplicacao As New CRAXDRT.Application
Dim CR_Relatorio As CRAXDRT.Report

Set CR_Relatorio = CR_Aplicacao.OpenReport("C: ... ", 1)
CR_Relatorio.PrinterSetup (0)

 

Valeu ...