Impressão do pedido

Olá amigos,
estou tendo que quebrar a cabeça e não estou conseguindo.

Tenho um form chamando pedido onde o mesmo tem um botão de impressão, que quando acionado abre outro form com 2 possibilidades de impressão como segue figura.

Selecionando um dos itens ele imprime o pedido da forma que o cliente quer.
O meu problema é que quando chama o form da figura acima ele não imprime o pedido.



Codigo para chamar a tela abaixo:
docmd.openform "frmimpressao" , , , "[CodPedido]=" & Me.CodPedido


Codigo para chamar o relatorio:
Private Sub btImprime_Click()
Select Case Impressao
Case "1"
DoCmd.OpenReport "Pedido", acViewPreview, , "[CodPedido]=" & Me.CodPedido
DoCmd.RunCommand acCmdZoom100
Case "2"
DoCmd.OpenReport "PedidoCor", acViewPreview, , "[CodPedido]=" & Me.CodPedido
DoCmd.RunCommand acCmdZoom100
Case Else
Exit Sub
End Select
DoCmd.Close
DoCmd.OpenForm "frmPedido"
End Sub

Não veio a figura, se possivel poste o bd.
Cumprimentos.

Arrumado as figuras.
bd com 200Mb