imprimir 2 vias - Uma em cada impressora

Prezados, bom dia.

Estou utilizando o código abaixo mas gostaria de melhorá-lo:

No botão [Imprimir] coloquei 2 vezes o código:
DoCmd.OpenReport "MeuRelatorio", acNormal, "", "", acNormal
DoCmd.OpenReport " MeuRelatorio ", acNormal, "", "", acNormal

Este código imprimi direto na impressora, sem aparecer a janela de impressão.

Preciso da ajuda de vocês para:

Imprimir uma via em cada impressora.
1ª Via entrega ao cliente na recepção enquanto ele aguarda o pedido chegar à mesa;
2ª Via imprimi direto na cozinha para preparar o alimento;

Fico no aguardo de uma luz.

'Em um Modulo Cole a Função !
Function DialogoImprime() 'Oferece opção de escolha de impressora ao imprimir
On Error GoTo ImprimirRelat_Erro
Dim msg As String

DoCmd.RunCommand acCmdPrint


Exit_ImprimirRelat_Erro:
Exit Function


ImprimirRelat_Erro:
Select Case Err
Case 2501
msg = "A impressão foi Cancelada!!!"
Case 2046
msg = "Selecione um objeto antes de imprimir!!!"
Case Else
NumErro = Err.Number
Formulario = "" & Form.Name & ""
ErrDescricao = Err.Description
LinhaErro = Str$(Erl)
MsgBox "Ocorreu o Erro " & vbCrLf _
& "Formulario: " & Formulario & " " & vbCrLf _
& "Erro: " & Err.Number & " " & vbCrLf _
& "" & Err.Description & ", - Informe ao Desenvolvedor, Log Erro Gravado !", vbSystemModal + vbCritical, "Erro no Sistema !"
Exit Function 'Verificar se o codigo fica dentro do Sub ou de uma Function
End Select
MsgBox msg, vbInformation, "Status da Impressão"
End Function


Para Chamar a Função

Call DialogoImprime

Espero ter ajudado

Prezado Waraujo,

Ainda não tive tempo para colocar no meu BD esta função.

Peço que aguarde que em breve retorno informando se funcionou.

Já agradeço pela ajuda.