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


2 participantes

    [Resolvido]Impressão de Relatórios

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Impressão de Relatórios Empty Impressão de Relatórios

    Mensagem  Jeferson de Paula 6/9/2013, 15:00

    Olá Galera,

    Estou precisando de uma função para imprimir um relatório de mais de 200 páginas frente e verso. Mas só que eu queria que ele pulasse de 2 em duas folhas em NÚMEROS ÍMPARES, exemplo: 1, 3, 5, 7, 9, 11, 13... depois ele mostra uma mensagem para virar as folhas e então repete a mesma função com NÚMEROS PARES, exemplo: 2, 4, 6, 8, 10, 12, 14... e assim sucessivamente!

    Achei um exemplo de um Loop na internet mas não sei como implantá-lo, alguém pode me ajudar?

    Código:
    for i = 2 to [tamanho] lap 2
            print...
    next
    Desde já agradeço a ajuda!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  criquio 6/9/2013, 18:16

    Tente trocar o lap por Step

    Código:
    For i = 1 to N Step 2
        Print...
    Next

    MsgBox "Vire as folhas"

    For i = 2 to N Step 2
        Print...
    Next


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  Jeferson de Paula 6/9/2013, 19:08

    Então amigo Criquio,

    Precisa declarar alguma variável? tentei usar mas não dei certo...

    Código:
    Private Sub btmImprimir_Click()
        For i = 1 To n Step 2
            DoCmd.OpenReport ("rltAnaliseDeTendencia"), acViewNormal, , , acHidden
        Next
            MsgBox "Por favor, vire as folhas para imprimir no verso!", vbInformation, "Próxima Etapa"
        For i = 2 To n Step 2
            DoCmd.OpenReport ("rltAnaliseDeTendencia"), acViewNormal, , , acHidden
        Next
    End Sub


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  criquio 6/9/2013, 19:19

    Pensei que estivesse usando isso no próprio relatório, com o printout, e que tamanho fosse uma variável que representasse a quantidade de páginas. Tente pesquisar na ajuda do VBA do relatório por PrintOut e utilize com o Me.Pages. Isso no evento "Ao carregar" do relatório, tirando a função de imprimir do botão do formulário. Veja se consegue adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  Jeferson de Paula 6/9/2013, 20:13

    Olá Amigo Criquio,

    Consegui através da internet uma instruçãozinha legal para quem quer imprimir um relatório através de um botão:

    Código:
    Private Sub btmImprimir_Click()
    Dim RPT As Report
        DoCmd.OpenReport "rtlAnaliseDeTendencias", acViewPreview, , , acHidden
        Set RPT = Reports!rtlAnaliseDeTendencias
            With RPT.Printer
                .Copies = 1
                .Duplex = acPRDPVertical
            End With
        DoCmd.OpenReport "rtlAnaliseDeTendencias", acViewNormal
        DoCmd.Close acReport, "rtlAnaliseDeTendencias", acSaveNo
    End Sub
    Valeu a ajuda!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  Jeferson de Paula 6/9/2013, 20:15

    Já estava esquecendo o [Resolvido]...


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  criquio 6/9/2013, 22:19

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Impressão de Relatórios Empty Re: [Resolvido]Impressão de Relatórios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:06