CrystalReport1.Connect = "DSN=.........."
CrystalReport1.ParameterFields(1) = "parametro 1"
CrystalReport1.ParameterFields(2) = "parametro 2"
CrystalReport1.ParameterFields(3) = "parametro 3"
CrystalReport1.ParameterFields(4) = "parametro 4"
CrystalReport1.PrintFileType = crptRTF 'acá se pasa a WORD (crptRTF)
CrystalReport1.PrintFileName = "nombre del archivo.rtf"
CrystalReport1.Action = 1