Problemas com impressão de subformulário

Estou com um problema sério que gostaria que alguém pudesse resolver. Tenho um formulário e um outro subformulário que está diretamente ligado e coletando dados para o principal. Acontece que, qdo preencho o sub formulário, salvo e mando imprimir (com comandos de impressão no botão imprimindo um outro formulário previamente desenhado para impressão), ele não imprime o último preenchimento. As vezes sai em branco e as vezes imprime todo o desenho do formulário principal. Se saio do acess e retorno, ele imprime. Tem algum codgo que posso colocar talvez para ele atualizar?

posta o código que está usando para imprimir.

Ok.

Private Sub Imprimir_presc_Click()
DoCmd.OpenForm "Prescrição impressa", acPreview, , "Ficha=" & Me.Ficha
Forms("Prescrição impressa").Printer.Orientation = acPRORPortrait
Forms("Prescrição impressa").Printer.PaperSize = acPRPS10x14
DoCmd.PrintOut acSelection
End Sub

tente assim:

Private Sub Imprimir_presc_Click()
Me.Refresh
DoCmd.OpenForm "Prescrição impressa", acPreview, , "Ficha=" & Me.Ficha
Forms("Prescrição impressa").Printer.Orientation = acPRORPortrait
Forms("Prescrição impressa").Printer.PaperSize = acPRPS10x14
DoCmd.PrintOut acSelection
End Sub

Obrigado.

Vou testar assim no cliente. Aí te dou um feedback

gilberlanio

Deu certo. Muito obrigado mesmo. Testei no cliente e ficou redondo. Agradeço a rapidez com que me ajudou.

Obrigado pelo retorno.
Não esqueça de colocar o tópico como "Resolvido"