Imprimir um formulario completo com memso designer

peço ajuda ao senhores, pois sou novo na área


eu tenho uma tabela, que estão cadastradas todas camadas,



1-tabela: camdas cadastradas
2-tabela: off cadastradas-em cada off tem material de consumo-esta tbl esta vinculada ao item - 01

3- um subformulario-que me da somente a soma total de cada off
4-um sub formulario que me da a soma total de cada material aser consumido.




formulario, no qual a fonte de registro e do item 01( tabela: camdas cadastradas), eu seleciono numa combo um codigo da camada , ele me mostra todas off cadastradas que estão vinculada a tabela 01,
então criei um sub formulario que mostras todas off(item-03) e o seu peso total e outro (item-04) que me da resumo total de material das off, conforme imagem no link:



então resumo:



queria imprimir este formulario , ja usei este código: docmd.printout acprintall, e não acontece nada
você pode me ajudar?
segue abaixo imagem no link



https://www.dropbox.com/s/p9bqh8uz9jsub44/psccapa1.jpg?m=

Boa tarde!

Não veio o Anexo:

mas veja se este comando ajuda:

coloque em esse código em um botão no seu formulário.

Código:

DoCmd.PrintOut acPrintAll

Boa tarde!!!

Cade o anexo???

Boa noite

O correto seria cria um relatório do form e criar comando para imprimir relatório ex:

Private Sub ImprimirReciboRecebimento_Click()
On Error GoTo Err_ImprimirReciboRecebimento_Click
Dim strNomeDoc As String
strNomeDoc = "Recibo de Recebimento"
' Imprime o relatório Recibo de Recebimento usando a consulta Filtro de Recibos de Recebimentos
' para imprimir o Recibo de Recebimento do Número do Lançamento atual.
DoCmd.OpenReport strNomeDoc, acViewNormal, "FiltroRecibosRecebimentos"

Exit_ImprimirReciboRecebimento_Click:
Exit Sub

Err_ImprimirReciboRecebimento_Click:
' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro.
Const conErrDoCmdCancelled = 1541
If (Err = conErrDoCmdCancelled) Then
Resume Exit_ImprimirReciboRecebimento_Click
Else
MsgBox Err.Description
Resume Exit_ImprimirReciboRecebimento_Click
End If

End Sub

Mas se voce quer imprimir o próprio form
Crie botão pelo assistente e selecione operações de formulários, imprimir formulário atual

Abraços

Mito brigado Pessoa Agradeço Muito!!!!

idiframk

Resolveu?

Sempre que o tópico que abriu for resolvido,
coloque o resolvido, no título do tópico.
Se não sabe, veja como ali na minha assinatura.



Noob