Impression Filtre multi-critère

Bonjour,

J'ai crée un filtre multi-critère au sein d'un formulaire
c'est bien ça marche mais désormais j'aimerai imprimer
les résultats dans un état.

Je ne veux pas de : capture d'écran, d'impression
d'enregistrement ou autre.

Voici mon code au sein de mon formulaire :

Option Compare Database

Private Sub chkLotEb_Click()
If Me.chkLotEb Then
Me.cmbLotEb.Visible = False
Else
Me.cmbLotEb.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkOutillageEb_Click()
If Me.chkOutillageEb Then
Me.cmbOutillageEb.Visible = False
Else
Me.cmbOutillageEb.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkLibellé_Click()
If Me.chkLibellé Then
Me.txtLibellé.Visible = False
Else
Me.txtLibellé.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkIndice_Click()
If Me.chkIndice Then
Me.txtIndice.Visible = False
Else
Me.txtIndice.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkCircuit_Click()
If Me.chkCircuit Then
Me.cmbCircuit.Visible = False
Else
Me.cmbCircuit.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkProcédé_Click()
If Me.chkProcédé Then
Me.cmbProcédé.Visible = False
Else
Me.cmbProcédé.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkCréatrice_Click()
If Me.chkCréatrice Then
Me.cmbCréatrice.Visible = False
Else
Me.cmbCréatrice.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkEmbt_Click()
If Me.chkEmbt Then
Me.cmbEmbt.Visible = False
Else
Me.cmbEmbt.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkMatièremoule_Click()
If Me.chkMatièremoule Then
Me.cmbMatièremoule.Visible = False
Else
Me.cmbMatièremoule.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkMatièrefonds_Click()
If Me.chkMatièrefonds Then
Me.cmbMatièrefonds.Visible = False
Else
Me.cmbMatièrefonds.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkEtat_Click()
If Me.chkEtat Then
Me.cmbEtat.Visible = False
Else
Me.cmbEtat.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkStatut_Click()
If Me.chkStatut Then
Me.cmbStatut.Visible = False
Else
Me.cmbStatut.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkStockage_Click()
If Me.chkStockage Then
Me.cmbStockage.Visible = False
Else
Me.cmbStockage.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkPotentiel_Click()
If Me.chkPotentiel Then
Me.txtPotentiel.Visible = False
Else
Me.txtPotentiel.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkQtémoule_Click()
If Me.chkQtémoule Then
Me.txtQtémoule.Visible = False
Else
Me.txtQtémoule.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkQtéfonds_Click()
If Me.chkQtéfonds Then
Me.txtQtéfonds.Visible = False
Else
Me.txtQtéfonds.Visible = True
End If
RefreshQuery
End Sub
Private Sub cmbLotEb_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbOutillageEb_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtLibellé_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtIndice_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbCircuit_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbProcédé_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbCréatrice_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbEmbt_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbMatièremoule_BeforeUpdate(Cancel As
Integer)
RefreshQuery
End Sub
Private Sub cmbMatièrefonds_BeforeUpdate(Cancel As
Integer)
RefreshQuery
End Sub
Private Sub cmbStatut_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbEtat_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbStockage_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtPotentiel_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtQtémoule_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtQtéfonds_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = -1
Case "lbl"
ctl.Caption = "-*-*-"
Case "txt"
ctl.Visible = False
ctl.Value = ""
Case "cmb"
ctl.Visible = False
End Select

Next ctl

Me.lstResults.RowSource = "SELECT Ebaucheur.[Code SOM
Eb],Ebaucheur.[Code article],[Libellé art],Ebaucheur.
[Indice de série],Ebaucheur.[Circuit Fab],Ebaucheur.
[Procédé],Ebaucheur.[code qual fonte],Ebaucheur.[Qualité
fds Eb], Ebaucheur.[Emboitement MdB],Ebaucheur.[Qté
Moules Eb],Ebaucheur.[Qté Fonds Eb],Ebaucheur.[Code
usine], Ebaucheur.[Code stat serie],Ebaucheur.[Etat de la
série],Ebaucheur.[Lieu de stockage Eb], Ebaucheur.
[Potentiel départ Eb],Ebaucheur.[Potentiel Eb],Ebaucheur.
[Cumul Cps battus Eb] FROM [Filtre Eb]Where Ebaucheur.
[Code article]<>0;"
Me.lstResults.Requery

End Sub

Private Sub RefreshQuery()
Dim SQL As String

SQL = "SELECT Ebaucheur.[Code SOM Eb],Ebaucheur.[Code
article],[Libellé art],Ebaucheur.[Indice de
série],Ebaucheur.[Circuit Fab],Ebaucheur.
[Procédé],Ebaucheur.[code qual fonte],Ebaucheur.[Qualité
fds Eb], Ebaucheur.[Emboitement MdB],Ebaucheur.[Qté
Moules Eb],Ebaucheur.[Qté Fonds Eb],Ebaucheur.[Code
usine], Ebaucheur.[Code stat serie],Ebaucheur.[Etat de la
série],Ebaucheur.[Lieu de stockage Eb], Ebaucheur.
[Potentiel départ Eb],Ebaucheur.[Potentiel Eb],Ebaucheur.
[Cumul Cps battus Eb] FROM [Filtre Eb]Where Ebaucheur.
[Code article]<>0"

If Not Me.chkLotEb Then
SQL = SQL & " And [Code SOM Eb]='" & Me.cmbLotEb & "'"
End If

If Not Me.chkOutillageEb Then
SQL = SQL & " And [Code article]=" & Me.cmbOutillageEb
& ""
End If

If Not Me.chkLibellé Then
SQL = SQL & " And [Libellé art] like '*" & Me.txtLibellé
& "'"
End If

If Not Me.chkIndice Then
SQL = SQL & " And [Indice de série] like '*" &
Me.txtIndice & "'"
End If

If Not Me.chkCircuit Then
SQL = SQL & " And [Circuit Fab]= '" & Me.cmbCircuit & "'"
End If

If Not Me.chkProcédé Then
SQL = SQL & " And [Procédé]= '" & Me.cmbProcédé & "'"
End If

If Not Me.chkCréatrice Then
SQL = SQL & " And [Code usine]= '" & Me.cmbCréatrice & "'"
End If

If Not Me.chkEmbt Then
SQL = SQL & " And [Emboitement MdB]=" & Me.cmbEmbt & ""
End If

If Not Me.chkMatièremoule Then
SQL = SQL & " And [code qual fonte]= '" &
Me.cmbMatièremoule & "'"
End If

If Not Me.chkMatièrefonds Then
SQL = SQL & " And [Qualité fds Eb]= '" &
Me.cmbMatièrefonds & "'"
End If

If Not Me.chkStatut Then
SQL = SQL & " And [Code stat serie]= '" & Me.cmbStatut
& "'"
End If

If Not Me.chkEtat Then
SQL = SQL & " And [Etat de la série]= '" & Me.cmbEtat
& "'"
End If

If Not Me.chkStockage Then
SQL = SQL & " And [Lieu de stockage Eb]= '" &
Me.cmbStockage & "'"
End If

If Not Me.chkPotentiel Then
SQL = SQL & " And [Potentiel Eb]=" & Me.txtPotentiel & ""
End If

If Not Me.chkQtémoule Then
SQL = SQL & " And [Qté Moules Eb]=" & Me.txtQtémoule & ""
End If

If Not Me.chkQtéfonds Then
SQL = SQL & " And [Qté Fonds Eb]=" & Me.txtQtéfonds & ""
End If



SQL = SQL & ";"

Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

Qu'est ce que je doit modifier au sein de ce code pour
exploiter cela dans un état.

Merci d'avance