Bom dia amigo!
Na Destination selecione informe:
CrystalReport1.Destination = crptToPrinter 'Direto para a impressora
CrystalReport1.Destination = crptMapi 'Envia por e_mail
CrystalReport1.Destination = crptToFile 'Salva como arquivo
CrystalReport1.Destination = crptToWindow 'Exibe o relatório na tela
estas são as opção de impressão para o Crystal 4.6
Um abraço! T+