[Resolvido]Imprimir 02 Registros por Página em formulário pré-impresso

Boa noite a todos. * Uso o Access 2003

Após buscas neste fórum não achei solução para a seguinte questão:
Em um Relatório com formulário pré-impresso no tamanho A4 preciso imprimir em sequencia 02 registros por cada página, onde cada metade da página são iguais, nesse caso é para aproveitar mesmo, visto que o formulário pré-impresso cabem 02 registros.

Exemplo: Se a consulta tem 10 registros seriam impressas 05 páginas, sendo 02 registros por página, onde todas as páginas seriam usadas.
Se a consulta tem 15 registros seriam impressas 08 páginas, sendo 02 registros por página, onde sobraria a última metade da última página que ficaria em branco.

Alguém tem algum arquivo-exemplo ou qual seria a solução?

Amigo, experimente:

Na guia Detalhe do seu reltorio, no evento ao Imprimir coloque esse codigo:

******** APague o que tem la e substitua por este:********


Option Compare Database
Dim j%

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
j = j + 1
If j = 2 Then
   Me.Detalhe.ForceNewPage = True
   j = 0
Else
   Me.Detalhe.ForceNewPage = False
End If
End Sub

Fonte:
https://www.maximoaccess.com/t12964-resolvidodividir-relatorio
http://www.redeaccess.com.br/viewtopic.php?t=953

Amigo, fiz conforme sua orientação, mas apareceu a seguinte mensagem: "Erro em tempo de execução '2101'. A definição que você inseriu não é válida para esta propriedade." Após clicar em "Depurar" aparece o que segue abaixo:

Option Compare Database
Dim j%

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
j = j + 1
If j = 2 Then
  Me.Detalhe.ForceNewPage = True       => Esta linha em destaque na cor amarela
   j = 0
Else
   Me.Detalhe.ForceNewPage = False
End If
End Sub

Amigo, vc colocou no evento e no lugar certo???


Se sim, poste aqui esse exemplo!

Segue imagem par melhor ilustração:

1) O que está em vermelho são os campos usados no formulário pré-impresso.
Observe que tem 2 imagens iguais para que cada 02 registros sejam inseridos em 1 página.
Não sei se fiz certo ao colocar os campos (em vermelho) apenas na 1ª parte, pois ao colocar também na 2ª parte da página, os registros da 1ª parte ficam repetidos na 2ª parte da página, quando deveria ser o 2º registro seguinte da consulta, e assim por diante.

2) Onde tem "C12_Imprime_GEAP" é a consulta que filtra os registros para impressão

3) Veja que coloquei na Guia Detalhe e no evento "ao imprimir"

Amigo, sua imagem esta sem condições de visualização (qualidade muito baixa)!

Mas repito, poste o BD ou siga as instruções da Fonte citada na primeira mensagem... La tem exemplos.

Caro Fabio.
Já havia tentado fazer pelos exemplos das fontes citadas por você, mas confesso que não consegui compreender o arquivo cla3200.mdb citado do ForumMaximoAccess, e a outra fonte do Redeaccess está na versão 2007 ou 2010 e não uso essas versões.

Então estou postando minha BD para melhor entendimento via Dropbox.

https://www.dropbox.com/s/0s8sd4qgzozesfg/CENSOParcial.zip?dl=0

No exemplo da BD seriam geradas 8 páginas, sendo:
07 páginas cada uma com 02 registros +
01 página apenas com o último registro, ficando em branco a 2ª parte dessa última página.

Amigão, vc quase conseguiu!


Nesse seu Exemplo, apenas remova a segunda parte do Relatorio (a parte duplicada do Scaner...) e suba o detalhe para mais ou menos 14,1cm.

Veja Imagem a baixo:


Lembre-se: Tudo que tiver na guia Detalhe ja será duplicado de cordo com a quantidade de Registros. Como vc colocou duas vezes o Scaner modelo, por isso deu aquele monte de paginas.


Veja a Primeira Pagina:

Fábio, boa noite,

Realmente seria para ser dessa forma por toda lógica usada que entendi agora, mas acredite, após retirar a 2ª parte duplicada do Scaner e subir a Guia Detalhe para 14cm, e ao executar aconteceu o mesmo erro da mensagem nº 3 acima: "Erro em tempo de execução '2101'. A definição que você inseriu não é válida para esta propriedade." Após clicar em "Depurar" aparece o que segue abaixo:

Option Compare Database
Dim j%

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
j = j + 1
If j = 2 Then
Me.Detalhe.ForceNewPage = True => Esta linha em destaque na cor amarela
j = 0
Else
Me.Detalhe.ForceNewPage = False
End If
End Sub

Fiquei sem entender nada, inclusive fiz várias vezes, e até no arquivo que enviei para você. E agora ?

Amigo, qual versao do office? Aqui usei 2013.

Access 2003 (ainda)

É amigo, provavelmente tem a ver com a Versão do Access mesmo... Talvez, nao tenho certeza, essa propriedade .ForceNewPage nao existisse no Access 2003. Mas como nao tenho, nao da pra testar.




Faça um teste em outra versão para ver se funciona... Pois aqui esta 100% e a unica coisa que fiz foi a descrita anteriormente.

Com certeza irá funcionar em uma versão superior a 2003, pois a imagem que você postou mostra isso, embora eu não esteja usando, vou testar.

Fiz uma pesquisa na Ajuda do Access 2003 e apresentou as seguintes instruções que segue adiante:
Com as instruções abaixo você irá ter um melhor entendimento para uma possível solução ou não, visto que não tenho a experiencia e conhecimentos que você detém, então se puder mais essa ajuda, agradeço.

Propriedade ForceNewPage (ForçaQuebraDePágina)

Você pode utilizar a propriedade ForçaQuebraDePágina para especificar se seções de formulário (detalhe, rodapé) ou seções de relatório (cabeçalho, detalhe, rodapé) serão impressas em uma página separada em vez de na página atual. Byte de leitura/gravação.

expressão.ForceNewPage
expressão      Necessária. Uma expressão que retorna um dos objetos da lista Aplica-se a.

Comentários
Por exemplo, você pode ter estruturado a última página de um relatório como um formulário de pedidos. Se a propriedade ForçaQuebraDePágina do cabeçalho do relatório estiver definida como Antes da seção, o formulário do pedido é sempre impresso em uma nova página.

Observação  A propriedade ForçaQuebraDePágina não se aplica a cabeçalhos de página ou rodapés de página.

A propriedade ForçaQuebraDePágina utiliza as configurações a seguir.

Configuração Visual Basic Descrição
Nenhuma 0 (Padrão) A seção atual (a seção para a qual você está definindo a propriedade) é impressa na página atual.
Antes da Seção 1       A seção atual é impressa na parte superior de uma nova página.
Depois da Seção 2    A seção imediatamente posterior à atual é impressa na parte superior de uma nova página.
Antes e Depois 3        A atual seção é impressa na parte superior de uma nova página e a próxima seção é impressa na parte superior de uma nova página.

Observação: Você pode definir essa propriedade utilizando a folha de propriedades da seção, uma macro ou o Visual Basic.

Aqui estão alguns exemplos de definição da propriedade ForçaQuebraDePágina.

Seção Configuração de exemplo Descrição
Um cabeçalho de grupo exibindo o ano Antes da Seção. O cabeçalho de grupo é impresso na parte superior da página, seguido pela seção detalhe, rodapé de grupo e rodapé da página.
Uma seção detalhe de relatório Depois da Seção. O rodapé de grupo é impresso na parte superior de uma nova página.
Um cabeçalho do relatório contendo o título do relatório e o logotipo da empresa. Depois da Seção O título do relatório e o logotipo são impressos em uma página separada no início do relatório.

Exemplo:
O exemplo a seguir retorna a definição da propriedade ForceNewPage para a seção detalhe do relatório Sales by Year e a atribui à variável intGetVal.

Dim intGetVal As Integer
intGetVal = Reports![Sales By Year].Section(acDetail).ForceNewPage

Amigo, Remova o Comando para quebra de Pagina... e Faça o teste na versão 2003

Faça o teste sem nenhum codigo la...

Amigo, funcionou perfeitamente. Como conseguiu pensar nisso? Você é o cara mesmo.

Muito obrigado, valeu muito.

Rapaz, depois que parei pra pensar no seu caso, vi que nao precisava era de codigo algum, ja que tem uma imagem la que ocupa metade de uma pagina.

rerererererererere

Enfim. Grato pelo retorno e até a próxima se Deus quiser!