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


3 participantes

    [Resolvido]imprimir relatorio origina e duplicado

    flashphone
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012
    • Mensagem nº1

    [Resolvido]imprimir relatorio origina e duplicado Empty imprimir relatorio origina e duplicado

    Mensagem  flashphone 12/4/2012, 16:54

    boa tarde,

    Ao imprimir um relatorio sai dois relatorios iguas , gostria que sai se um com palavra original e outro com palavra duplicado, sera possivel ?

    obrigado
    • Ir para o topo
    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
    • Mensagem nº2

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  criquio 12/4/2012, 17:06

    Talvez assim, no evento "Ao carregar" do relatório:

    Me.lblTipo.Caption = "Original"
    DoCmd.PrintOut

    Me.lblTipo.Caption = "Duplicado"
    DoCmd.PrintOut

    lblTipo seria o nome de um rótulo que você teria no local que quer que sai esse texto.


    .................................................................................
    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.
    • Ir para o topo
    flashphone
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012
    • Mensagem nº3

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  flashphone 12/4/2012, 17:11

    Eu tenho assim rivate Sub Comando20_Click()
    On Error GoTo Err_Comando20_Click
    Dim LinVias As Integer

    For LinVias = 1 To 2
    If LinVias = 1 Then MsrVersao = "ORIGINAL"
    If LinVias = 2 Then MsrVersao = "DUPLICADO"

    DoCmd.OpenReport "Guias recebidas", acViewNormal

    Next

    Exit_Comando20_Click:
    Exit Sub

    Err_Comando20_Click:
    MsgBox Err.Description
    Resume Exit_Comando20_Click
    End Sub

    Private Sub Form_Load()
    Me.txtData.Value = Me.Data.Value
    End Sub:
    • Ir para o topo
    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
    • Mensagem nº4

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  criquio 12/4/2012, 17:32

    No botão que abre o relatório, deixe apenas assim:

    DoCmd.OpenReport "Guias recebidas", acViewPreview, , , acHidden

    No evento "Ao carregar" do relatório:

    Me.lblTipo.Caption = "Original"
    DoCmd.PrintOut

    Me.lblTipo.Caption = "Duplicado"
    DoCmd.PrintOut

    DoCmd.Close, Me.Name

    Ou, apenas no botão do formulário:

    DoCmd.OpenReport "Guias recebidas", acViewPreview, , , acHidden

    Reports!NomeDoRelatório!lblTipo.Caption = "Original"
    DoCmd.PrintOut

    Reports!NomeDoRelatório!lblTipo.Caption = "Duplicado"
    DoCmd.PrintOut

    DoCmd.Close acReport, "NomeDoRelatório"


    .................................................................................
    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.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009
    • Mensagem nº5

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  JPaulo 12/4/2012, 17:42

    Não pode duplicar o relatório que se torna mais facil e pratico ?


    Private Sub SeuBotão_Click()
    DoCmd.SelectObject acReport, "rptGuiasRecebidasOriginal", True
    DoCmd.PrintOut , , , , 1
    DoCmd.SelectObject acReport, "rptGuiasRecebidasDuplicado", True
    DoCmd.PrintOut , , , , 1
    End Sub

    http://dl.dropbox.com/u/771097/Guias_OLD_III.mdb.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]imprimir relatorio origina e duplicado Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]imprimir relatorio origina e duplicado Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]imprimir relatorio origina e duplicado Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    flashphone
    flashphone
    flashphone
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 53
    Registrado : 11/01/2012
    • Mensagem nº6

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  flashphone 13/4/2012, 00:44

    Boa noite

    problema resolvido, muito obrigado a todos aqueles que me ajudaram e um bem aja a essas pessoas que estão sempre prontas a ajudar .

    os meu melhores cumprimentos e prefundos agradecimentos.
    • Ir para o topo
    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
    • Mensagem nº7

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  criquio 13/4/2012, 00:57

    Agradecemos pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez, eu clico.


    .................................................................................
    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.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]imprimir relatorio origina e duplicado Empty Re: [Resolvido]imprimir relatorio origina e duplicado

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 13/5/2024, 21:22