Dados da caixa de listagem

Bom dia, tenho um formulário, que nele consta uma lista box (escolho o item na lista box) e automaticamente aparece na minha caixa de listagem, até tudo bem, criei um botão para imprimir, cujo gostaria que abrisse o relatório para que seja impresso, só que ao clicar no botão imprimir, ele gera o relatório mas não esta atualizando conforme a escolha no formulário da minha caixa de listagem, grato se alguém poder me ajudar.

Private Sub btnimprimirdelegado_Click()
DoCmd.OpenReport "rel_consultadelegado", acViewReport, "", "", acNormal

End Sub



Obs: só quero que atualize os dados no relatório ao clicar no botão para imprimir.

Estranho, porque ele automaticamente atualiza.

tente o comando:

me.sualistbox.requery

Faça isso logo no começo da rotina de impressão ou seja será o primeiro comando a ser lido atualizando a lstbox