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ório por página.

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    [Resolvido]Impressão de Relatório por página. Empty Impressão de Relatório por página.

    Mensagem  Luiz Carlos Junior 30/8/2013, 14:19

    Bom dia feras.
    Estou com um problema simples para quem manja, mas não estou conseguindo resolver.
    Tenho um relatório com 2 páginas que devem ser impressas frente e verso, postanto, preciso de um código que, ao clicar em imprimir, imprima a primeira página e faça uma pausa com uma MsgBox dizendo para virar a folha e clicar em OK e só depois imprime a segunda.
    Deve ser fácil, mas to apanhando. rs

    Abrasss!!!
    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ório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  criquio 30/8/2013, 14:25

    Dê uma pesquisada no DoCmd.PrintOut na ajuda do vba no Access. Esse método permite passar o número da página. É só colocar uma linha para a página 1, uma linha com a mensagem e outra com a página 2 no seu código.


    .................................................................................
    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.

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    [Resolvido]Impressão de Relatório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  Luiz Carlos Junior 30/8/2013, 15:08

    Valeu pela dica Criquio.
    Nem tinha pensado no Ajuda.
    Ficou assm o código:

    With DoCmd
    .OpenReport "rel_CartaoPonto", acViewPreview
    .PrintOut acPages, 1, 1
    .Close acReport, "rel_CartaoPonto"
    End With
    MsgBox "Vire o cartão para a impressão do verso e clique em OK!", vbInformation, "Informando"
    With DoCmd
    .OpenReport "rel_CartaoPonto", acViewPreview
    .PrintOut acPages, 2, 2
    .Close acReport, "rel_CartaoPonto"
    End With

    Abrasss!!!
    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ório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  criquio 30/8/2013, 16:56

    Pode ser simplificado:

    Código:
    With DoCmd
            .OpenReport "rel_CartaoPonto", acViewPreview
            .PrintOut acPages, 1, 1
            MsgBox "Vire o cartão para a impressão do verso e clique em OK!", vbInformation, "Informando"
            .PrintOut acPages, 2, 2
            .Close acReport, "rel_CartaoPonto"
    End With


    .................................................................................
    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.

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    [Resolvido]Impressão de Relatório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  Luiz Carlos Junior 30/8/2013, 17:16

    Boa.
    Valeu Criquio.
    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ório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  criquio 30/8/2013, 23:15

    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ório por página. Empty Re: [Resolvido]Impressão de Relatório por página.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:57