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é
Crie uma fórmula no relatório e deixe vazia.
No vb antes de fazer a impressão pelo crystal, coloque o texto na fórmula criada. Você pode colocar texto mesclando com os dados do dtpicker e formar a frase que quiser.
Claiton,
você pode criar um group para o estado da OS ( com ou sem garantia ). Assim você terá um total para cada estado e de quebra um total geral.
Att,
André