Imprimir em excel um relatório filtrado

Bom dia pessoal!

quero imprimir em excel um relatório com filtros
uso esse codigo para impimir normal..quero que exporte para excel

Dim j As Boolean, filtro As String
'If IsNull(Me!CboCliente) Then j = True
'If IsNull(Me!DataInicial) Then j = True
'If IsNull(Me!DataFinal) Then j = True
'If j = True Then
'MsgBox "Preencha as datas...", vbInformation, "Aviso"
'Me!CboCliente.SetFocus
Exit Sub
End If
DoCmd.OpenReport "rlt_veiculo_excel", acViewPreview, , Lbx.Form.Filter

cons_veiculos.Form.Filter = filtro
cons_veiculos.Form.FilterOn = True

Meu oficce é o 2007

Desde já agradeço

Boas Festas
Relatório é em Access, se quer em Excel tem de criar ficheiro Excel a partir da fonte de dados do relatório