sinceramente não sei se tem como fazer isso, mas sugiro que você tenha uma tabela de parâmetros de relatórios para gravar estes valores e coloque esta tabela na base do relatório, eu faço assim quando preciso de informações extras

No crystal, crie as formulas necessarias pra receber os dados enviados pela aplicação e as coloque no relatório.

 

Na aplicação:

Private Sub imprimir()
Dim  var1, var2 As String

var1 = "01"

var2 = "02"

.

.

.

CrystalReport1.Formulas(1) = "aux1='" & var1 & "'"  

CrystalReport1.Formulas(2) = "aux2='" & var2 & "'" 

 ' aux1 e aux2 são nomes das fórmula criada no crystal

cr1.Action = 1

end sub

 

Espero ter ajudado!