[Resolvido]imprimir direto para impressora

ola pessoal

hoje uso esse comando para visualizar e imprimir

Dim stDocName As String

stDocName = "rptcupom"
DoCmd.OpenReport stDocName, acPreview, "CodPedido = " & Me.CodPedido

alterei para

Dim stDocName As String

stDocName = "rptcupom"
DoCmd.PrintOut stDocName, acPreview, "CodPedido = " & Me.CodPedido

esta dando erro 13 tipos incompativeis

Tente a primeira forma, trocando acPreview por acViewNormal.

ola Criquio

o codigo ficou assim

Dim stDocName As String

stDocName = "rptcupom"

DoCmd.OpenReport stDocName, acViewNormal, "CodPedido = " & Me.CodPedido

MsgBox "Pedido Impresso com Sucesso!!!", vbInformation, "Impressao de Pedido"

funcionou perfeito imprimiu direto , so mais uma coisa voce viu coloquei uma mensagem sobre a impressao
mas gostaria deixar melhor , tipo como eu coloco o numero do pedido exemplo

MsgBox "Pedido Impresso com Sucesso!!!", vbInformation, Numero do Pedido 116 "Impressao de Pedido"

esse seria so uma melhora , o que interesa ja foi feito
muito obrigado

Talvez assim:

MsgBox "Pedido Impresso com Sucesso!!!", vbInformation, "Impressão do Pedido " & Me.Código

ola criquio
deu certinho a sua dica

muito obrigado pela atenção