Filtrar al seleccionar vista previa

Este es el código que le tengo a mi botón de vista previa pero no me filtra y solo quiero que me filtre por registro seleccionado.

Dim prt As Printer
'On Error GoTo err_PrintOut

Set prt = Application.Printers(Me!cmbPrinter.Value)

'prt.PaperSize = Me!cmbPaperSize
prt.PaperSize = 1

prt.Orientation = Me!opgOrientation

DoCmd.Close acReport, Me!lbxSelectReport
DoCmd.OpenReport Me!lbxSelectReport, acViewPreview, , "Id_inventario=" & Me.cedmiembro

Reports(Me!lbxSelectReport).Printer = prt

Exit Sub
err_PrintOut:

MsgBox "Se ha producido el error " & Err.Number _
& vbCrLf & Err.Description