MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 28/10/2015, 04:48

    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
    luissiscone
    luissiscone
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 170
    Registrado : 16/02/2011

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

    Mensagem  luissiscone 29/10/2015, 18:35

    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
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 29/10/2015, 20:45

    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
    wsenna
    wsenna
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

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

    Mensagem  wsenna 2/11/2015, 16:27

    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

      Data/hora atual: 17/4/2021, 18:46