[Resolvido]Imprimindo Relatório

Pessoal, estou com um formulário no qual tenho um botão que imprimi o registro atual, só que este botão se baseia em um parâmetro para identificar o registro a ser impresso, como segue em vermelho. Gostaria de adicionar outro critério, no caso ITEM e Data,
tentei colocar uma linha de critério idêntica embaixo da linha que está em vermelho porém sem sucesso.

Private Sub Comando587_Click()

Dim strWhere As String
On Error GoTo 1

If Me.Dirty Then
Me.Dirty = False
End If

If Me.NewRecord Then
MsgBox "Selecione uma Ficha de Processo"
Else

strWhere = "[item] = " & Chr(34) & Me!ITEM & Chr(34)

DoCmd.OpenReport "IMPRESSÃO", acViewPreview, , strWhere
DoCmd.PrintOut
DoCmd.Close

End If

Exit Sub

1:
If Err.Number = 2501 Then
Exit Sub
End If
End Sub


Grato!

para ver

Código:

Private Sub nomedocomando_Click()
DoCmd.Save
DoCmd.OpenReport "nomedorelatório", acViewPreview, , "[chaveprimário] = " & [chaveprimário]
DoCmd.Maximize
DoCmd.Close

Para imprimir

Código:

Private Sub nomedocomando_Click()
DoCmd.Save
Dim numCop As Integer
DoCmd.OpenReport "nomedorelatório", acViewPreview, , "[chaveprimário] = " & [chaveprimário]
DoCmd.Maximize
    numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR")
    DoCmd.PrintOut acPrintAll, , , acHigh, numCop
DoCmd.Close
End Sub

Muito obrigado, seu código não utilizei porém, a sua abordagem pela ID caiu como uma luva!
grato !

Ainda bem que resolveste.
Nas esqueças clicar na mão branca sobre fundo verde na mensagem que te ajudou.