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é