[Resolvido]Não imprimir última página do relatório

Olá Feras de plantão, bom dia.

Estou precisando da ajuda dos Mestres.

Como fazer para não imprimir a última página de um relatório com mais de uma página?

A princípio eu coloquei no evento Ao imprimir de cada seção do relatório o código abaixo:

If Me.Page >= 2 And Me.Page = Me.Pages Then
Cancel = True
End If


A coisa até que funcionou mas acredito que haja uma forma mais adequada para isso.



Abraços, WSenna

boa tarde wsenna;

Não consegui enviar o exemplo pronto, diz que o espaço disponível é de 0kb mesmo possuindo somente 29kb, mas é simples para testar:
Crie um relatório;
Um formulário com duas caixas de texto ex:
Paginas - para contar as áginas;
AImprimir - para receber a quantidade a ser impressa;

Siga o resto do código, pronto, vê se serve !

'-----------------------------------------------------------------------

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)

Me.Paginas.Visible = False
Me.AImprimir.Visible = False

End Sub

Private Sub IMPRIMIR_Click()
On Error GoTo m
    DoCmd.OpenReport "Relatorio", acViewPreview
    Me.Recalc
    Me.Paginas.Visible = True
    Me.AImprimir.Visible = True
    Me.Paginas.SetFocus
    Me.AImprimir = Me.Paginas - 1

Dim impressas As Integer
    impressas = Me.AImprimir

If MsgBox("Seu relatório possui: " & Me.Paginas & " Páginas, serão impressas somente da página 1 a : " & Me.AImprimir, vbInformation + vbYesNo, "Impressão") = vbYes Then
    DoCmd.PrintOut acPages, 1, impressas, , 1
End If
m:
End Sub

Olá Luis, boa noite.

Amigão, fiz como você sugeriu mas não funfou.
O problema é que o CONARQ - Concelho Nacional de Arquivos possui uma resolução que rege a formatação das listagens de documentos a serem destruídos.
Assim toda vez que podemos destruir um grande lote de documentos em virtude do cumprimento dos prazos ditados pela tabela de temporalidade de documentos temos que encaminhar tais listagens para o Conselho e para a publicação no D.O. da União.

De qualquer forma fico imensamente grato pela sua ajuda.

Abraços, WSenna

Olá Amigos, boa tarde.

Este tópico foi resolvido com a ajuda do Mestre Ahteireira em outro post como segue abaixo:


https://www.maximoaccess.com/t24555-resolvidoso-imprimir-a-ultima-pagina-do-relatorio


De qualquer forma agradeço o empenho de todos em ajudar.

Abraços, WSenna