[Resolvido]Ao abrir relatório com subs em branco

Senhores, eu criei um relatório com oito subrelatórios, cada um com uma consulta.
As vezes alguns dos subs não tinha dados, eu resolvi isto colocando este código no evento ao carregar do relatório para cada sub.
if Me.Filho0.Report.HasData Then
Me.Filho0.Visible = True
else
Me.Filho0.Visible = False
end If
Mas ficavam espaços em branco no relatório, eu resolvi isto colocando no evento se não estiver dado de cada sub:
cancel = True
E também selecionei sim para pode expandir e pode reduzir. Coloquei altura 0, para todos os subrelatórios.
Quando seleciono a opção visualizar impressão, ficou exatamente como eu queria. E quando imprimo, também imprime perfeitamente(somente subs com dados, e sem espaços em branco).
Apenas, quando abro o relatório eu vejo somente o cabeçalho, o resto fica em branco, não consigo visualizar as subs com os dados.
Alguém no fórum já passou por esta situação? Qualquer ajuda é bem vinda.

Obrigado.

Olá

"E também selecionei sim para pode expandir e pode reduzir. Coloquei altura 0, para todos os subrelatórios"

Tire as outras alterações e teste somente com esta alteração em vermelho.

No aguardo

Avelino, muito obrigado por sua ajuda. Desculpe por demorar a responder, eu estava sem internet.

Fiz exatamente como você disse e funcionou perfeitamente.

Novamente, Muito obrigado.