[Resolvido]Imprimir Tela Aberta 2x Na Mesma Impressão

Olá pessoal, tenho uma tela de Ordem de Serviço que ao preencher e salvar, eu imprimo para entregar uma via para o cliente e preciso imprimir outra via para fixar na maquina. Alguem conhece uma forma desse mesma OS sair numa folha A4 2x, para eu apenas imprimir uma folha e cortar no meio.
Vou enviar imagens ta tela.



Obrigado

Tente:
reescrever o código de impressão, abaixo do atual.

Meu caro, não consegui fazer aqui.

Qual é o comando para mandar imprimir o registro que esta na tela.
Eu não criei relatório, apenas quero imprimir o que esta na tela só que 2x na mesma folha, para apenas cortar e folha no meio e ficar com uma via.

Abraços

É o mesmo que voce usa no clique do botão que imprime a OS.
Basta repeti-lo. Se usar macros, basta adcionar mais uma instrução...

Não deu certo ou não soube fazer.

Estou usando macro no botão imprimir, ela estava assim.

ExecutarComando - SelecionarRegistro
ExecutarComando - ImprimirSeleção

Altere para VBA
Evento "Ao clicar"

DoCmd.OpenReport "SeuRelatório", acViewPreview, "", "[CódigoRegistro]=[forms]![SeuFormulário]![CódigoRegistro]"
DoCmd.OpenReport "SeuRelatório", acViewPreview, "", "[CódigoRegistro]=[forms]![SeuFormulário]![CódigoRegistro]"

Substitua os nomes: SeuRelatório, CódigoRegistro, SeuFormulário pelos seus respectivos controles no seu bd.

Acho que eu não me expressei bem no título do post.

Eu não tenho relatório para essa impressão, quero apenas que imprima exatamente como esta a tela do form depois do preenchimento conforme imagem que enviei. Só que preciso que apareça duas telas iguais na mesma folha impressa.

O Codigo que vc me mandou tem o campo para colocar no nome do relatório

DoCmd.OpenReport "SeuRelatório", acViewPreview, "", "[CódigoRegistro]=[forms]![SeuFormulário]![CódigoRegistro]"
DoCmd.OpenReport "SeuRelatório", acViewPreview, "", "[CódigoRegistro]=[forms]![SeuFormulário]![CódigoRegistro]"

Outra coisa que não entendi é esse [CódigoRegistro], o que seria ele no meu formulário ?

Então mude para:

DoCmd.RunCommand acCmdPrint
DoCmd.RunCommand acCmdPrint

Amigo, me confundi com o código. O correto é esse:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPrintSelection
DoCmd.RunCommand acCmdPrintSelection

Marcelo,

Continua na mesma, na impressão não aparece o registro duplicado.
Agora pra piorar, quando mando imprimir da erro no programa e manda fechar o access.

Poste seu banco de dados para ver-mos.

Acho que vai ser complicado, meu banco esta com 46 Megas. rs

Posso fazer um video gravando a tela e mandar o link para mostrar com detalhes para melhor vizualização.

O que acha ?

Duplique os campos abaixo dos já existentes, ou seja, selecione-os, Control+C seguido de Control+V. Uma dica adicional. Eu deixaria os labels e campos com fundo e borda transparentes para não ficarem aparecendo na folha.

Para postar o bd, basta seguir as dicas do criquio (acima). Imaginamos que voce tenha uma cópia do banco, pois não fazemos munificações na estrutura de um aplicativo e sim em uma cópia...

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.