[Resolvido]imprimir relatório

Private Sub btImprimir_Click()
DoCmd.OpenReport "rpt_Ordem_Execução", acViewReport, , "IDCustos=" & Me.IDCustos
MsgBox "Impressão do Pedido Nº " & Me.IDCustos, vbYesNo, "Pedido Impressão com Sucesso!!!"
DoCmd.PrintOut
End Sub

boa noite a todos mais o vez recorro a quem sabe da materia.
estou a utilizar este codigo acima descrito para imprimir um relatorio, na MsgBox tem dois botões sim e não o que está acontecer é: se clicar no botão SIM imprime o relatório mas se clicar no botão NÃO imprime na mesma, eu pretendia que quando clica-se no botão NÃO fecha-se a MsgBox e não imprimi-se o relatório
era neste sentido que pedia ajuda a quem tiver disponibilidade para me ajudar.
obrigado

Private Sub btImprimir_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox "Deseja imprimir o Pedido Nº " & Me.IDCustos, vbYesNo, "Confirmação"
If SN = vbYes Then
DoCmd.OpenReport "rpt_Ordem_Execução", acViewReport, , "IDCustos=" & Me.IDCustos
DoCmd.PrintOut
End If
End Sub
obrigado por responder mas esta coisa está a dar erro de sintaxe

peço desculpa mas! não estou a entender as aspas como?
se tirar as aspas continua dar erro.

Private Sub btImprimir_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox "Deseja imprimir o Pedido?", vbYesNo, "Confirmação"If SN = vbYes Then
DoCmd.OpenReport "rpt_Ordem_Execução", acViewReport, , "IDCustos=" & Me.IDCustos
DoCmd.PrintOut
End If
End Sub
o erro centra-se na mesmo linha (erro de compilação: erro de sintaxe)

Não vimos o detalhe: faltaram os parênteses.

Private Sub btImprimir_Click()
Dim SN As VbMsgBoxResult
SN = MsgBox ("Deseja imprimir o Pedido?", vbYesNo, "Confirmação")
If SN = vbYes Then
DoCmd.OpenReport "rpt_Ordem_Execução", acViewReport, , "IDCustos=" & Me.IDCustos
DoCmd.PrintOut
End If
End Sub

bingo obrigado imprime e cancela
pergunto não é possivel parecer MsgBox o numero do registo tipo como está no codigo da mensagem nº3
tentei e passa a dar erro não haverá forma de dar a volta ao assunto.
obrigado

Tente assim

substitua esta linha
SN = MsgBox ("Deseja imprimir o Pedido?", vbYesNo, "Confirmação")
por esta
SN = MsgBox ("Deseja imprimir o Pedido Nº " & Me.IDCustos & "?", vbYesNo, "Confirmação")

muito obrigado pela atenção *****
Obrigado

Bom dia Norbs...fantástica essa linha de comando, estava procurando algo parecido....valeu mesmo.

Abraços !

olha no codigo
DoCmd.OpenReport "rpt_Ordem_Execução", acViewReport, , "Cod_bilhete=" & Me.Cod_bilhete
na linha sublinha fica o nome do formulario ou outra coisa nao compreendo

Ola seja bem vindo ao forum;

No evento VBA ao pressionar do seu botão no formulario;

Se o campo a filtrar for Numerico;

Private Sub SeuBotão_Click()
DoCmd.OpenReport "NomeDoSeuRelatorio", acViewReport, , "Campo1=" & Me.Campo1
End Sub

Se o campo a filtrar for Texto;

Private Sub SeuBotão_Click()
DoCmd.OpenReport "NomeDoSeuRelatorio", acViewReport, , "Campo1='" & Me.Campo1 & "'"
End Sub

Nota:
Qualquer duvida mais, deve abrir novo tópico.

mas esta a dar o mesmo erro
e o botão NÃO se eu clicar encima imprime na mesma

"rpt_Ordem_Execução" é o nome do relatório você tem de substituir "rpt_Ordem_Execução" pelo nome do seu relatório