Alow Claudio!

Acho que isso resolve:

m.RelatorioNoEXE = .T.
m.OldError = On("Error")
On Error m.RelatorioNoEXE = .F.
Report Form (tcRelatorio) To Printer Blá Blá Blá...
On Error &OldError
If m.RelatorioNoEXE = .F.
   MessageBox("Relatório não disponível")
EndIf

Note que você não precisa testar se está em disco ou dentro do EXE. O importante é executar ou não...

Acho que isso funciona! :)

PS: O código do Erro é o número 1 - Arquivo não existe. Você também pode tratar este erro dentro da sua rotina de erros.

[]s