Retire as linhas que chamam o preview, que são estas :
Dim f As New frmRelatorio(relatorio) f.Show()
e coloque o comando de impressão :
relatorio.printout (aqui você preenche os parametros disponíveis)
Não sei qual a versão de Crystal que você está usando, este comando é do Crystal 9.
Att.
André