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]imprimir etiquetas conforme qtde selecionada!!!

    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 20/5/2015, 16:57

    Boa tarde a todos,

    Gostaria de saber como faço para imprimir minhas etiquetas com base na quantidade que eu selecionei no formulário.

    Queria fazer isso para evitar o desperdício de etiquetas e de folhas, já que tem o preço meio salgado.

    Obrigado desde já.
    avatar
    Convidado
    Convidado


    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Convidado 20/5/2015, 17:07

    Boa tarde,

    Veja se serve:

    DoCmd.OpenReport, "NomeSeuRelatorio", acViewPreview
    DoCmd.PrintOut , , , , Me.NomeSeuCampo ' Me.NomeSeuCampo é o campo que receberá o nº de copias que voce quer.


    Abraço... Cool
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Noobezinho 20/5/2015, 17:14

    Cristiano

    Aqui está um exemplo

    Veja que o no formulário, irá colocar a quantidade de etiquetas a ser impressa.

    Na outra caixa de texto irá colocar quantas etiquetas deve pular.

    Por exemplo, começou a usar a folha de etiquetas e imprimiu 5 etiquetas

    Retira as etiqueta, ficando na folha 5 espaços de etiquetas vazios.

    Na proxima impressão coloca-se quantas irá imprimir e na segunda caixa de texto
    irá coloca quantas etiquetas pular.
    No caso, irá pular 5.

    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 20/5/2015, 17:45

    Obrigado pelo retorno aos dois,

    Vou testar e posto se deu certo ou não pra colocar resolvido no tópico ok.

    Sucesso

    Obrigado
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 20/5/2015, 17:54

    Roberto_1977

    Agradeço sua atenção, mas não deu certo.
    Ele continua abrindo as etiquetas na pagina toda.


    Noobezinho

    Não consigo abrir seu exemplo pois aqui no meu serviço, nessa máquina tem o office 2003 instalado. pode converter para outra versão?



    Obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Noobezinho 20/5/2015, 20:09

    Ta ai

    Download


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 21/5/2015, 13:13

    Bom dia,

    Nada ainda.

    Estou com esse código abaixo, mas nao aparece (filtrado) no relatorio o que foi digitado nas inputboxes.

    No módulo do banco de dados:

    Option Compare Database
    Option Explicit

    ' Obtido no artigo 95806 - "ACC: How to Skip Used Mailing Labels
    ' and Print Duplicates", da Microsoft Knowledge Base.
    ' http://support.microsoft.com/?kbid=95806

    Dim LabelBlanks% ' O símbolo '%' significa Integer
    Dim LabelCopies%
    Dim BlankCount%
    Dim CopyCount%

    '============================================================
    ' A seguinte função, colocada no evento Ao Abrir do Re-
    ' latório, abrirá uma Input Box perguntando ao usuário
    ' qual o número de etiquetas usadas anteriormente a ser
    ' pulado e quantas cópias de cada etiqueta serão impressas
    '============================================================

    Function LabelSetup()
    LabelBlanks% = Val(InputBox$("Entre com o nº de etiquetas já usadas." _
    & vbCrLf & "As etiquetas usadas serão puladas.", "Imprime Etiqueta"))
    LabelCopies% = Val(InputBox$("Entre com o nº de cópias a imprimir" & vbCrLf _
    & "de cada etiqueta.", "Imprime Etiqueta"))
    If LabelBlanks% < 0 Then LabelBlanks% = 0
    If LabelCopies% < 1 Then LabelCopies% = 1
    End Function

    '===========================================================
    ' A seguinte função torna as variáveis igual a zero e é
    ' usada no evento Ao Formatar do cabeçalho do Relatório.
    '===========================================================

    Function LabelInitialize()
    BlankCount% = 0
    CopyCount% = 0
    End Function

    '===========================================================
    ' A seguinte função é a parte principal deste código que
    ' permite que as etiquetas sejam impressas conforme o
    ' desejo do usuário manifestado nas Input Boxes.
    ' Deve ser colocada no evento OnPrint da Seção Detalhe.
    '===========================================================

    Function LabelLayout(R As Report)
    If BlankCount% < LabelBlanks% Then
    R.NextRecord = False
    R.PrintSection = False
    BlankCount% = BlankCount% + 1
    Else
    If CopyCount% < (LabelCopies% - 1) Then
    R.NextRecord = False
    CopyCount% = CopyCount% + 1
    Else
    CopyCount% = 0
    End If
    End If
    End Function



    Será que alguém saberia me dizer onde estou errando.
    Aparece tudo certinho quando vai abrir o relatório, mas no relatório aparece a folha preenchida inteira como se não tivesse filtrando o que eu digitei nas input.

    Alguém pode me esclarecer esta dúvida?

    Obrigado
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 21/5/2015, 14:14

    Tenho um form que seleciono o produto que quero imprimir e quando clico em OK ele abre a inputbox perguntando quantas copias e quantas quero pular, mas nao filtra meu relatorio para que possa ser impresso nestas condições.

    A questão de pular etiquetas usadas eu nem preciso, não faço questão que não pule.
    Coloquei pois o código já veio quase pronto e acabei achando uma boa.

    Alguém pode me esclarecer como faço o filtro no relatório? Seria no comando ao abrir do mesmo?

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Noobezinho 21/5/2015, 14:25

    Faça um print de toda a página de código do relatório e cole aqui.

    ou

    Copie e cole


    Noob





    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 21/5/2015, 14:48

    não vai, dá espaço total de armazenamento ultrapassado, mande seu email que eu te passo.

    Obrigado
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 21/5/2015, 14:49

    resolvido, tá aqui



    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    If BlankCount% < LabelBlanks% Then
    R.NextRecord = False
    R.PrintSection = False
    BlankCount% = BlankCount% + 1
    Else
    If CopyCount% < (LabelCopies% - 1) Then
    R.NextRecord = False
    CopyCount% = CopyCount% + 1
    Else
    CopyCount% = 0
    End If
    End If
    End Function
    End Sub

    Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    Function LabelInitialize()
    BlankCount% = 0
    CopyCount% = 0
    End Function

    Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize
    LabelBlanks% = Val(InputBox$("Entre com o nº de etiquetas já usadas." _
    & vbCrLf & "As etiquetas usadas serão puladas.", "Imprime Etiqueta"))
    LabelCopies% = Val(InputBox$("Entre com o nº de cópias a imprimir" & vbCrLf _
    & "de cada etiqueta.", "Imprime Etiqueta"))
    If LabelBlanks% < 0 Then LabelBlanks% = 0
    If LabelCopies% < 1 Then LabelCopies% = 1
    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Noobezinho 21/5/2015, 15:53

    Cristiano

    Enfatizo que você deve estudar  sobre funções.

    Ao invés de chamar as funções para serem executadas,
    colocou todo o código delas  nas propriedades do relatório

    Então:

    Mantenha as funções da mensagem nº 7 num módulo básico.

    Depois no relatório:



    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

    LabelLayout Me   ' <<<< isso é uma chamada da função

    End Sub

    Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)

    Call LabelInitialize  ' <<<< isso é uma chamada da função

    End Sub

    Private Sub Report_Open(Cancel As Integer)

    Call LabelSetup ' <<<< isso é uma chamada da função

    End Sub






    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 22/5/2015, 11:39

    Bom dia Noob,

    Resolvi o problema com o código que coloquei logo acima, acho que na mensagem 7.

    Tinha feito uma besteira de colocar o codigo em lugar errado.

    Muito obrigado pela força, e diga-se de passagem vou estudar mais o que você me disse.

    Todos os dias estudo um pouquinho, devagar eu chego lá.

    Abraços a todos.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Noobezinho 22/5/2015, 11:50

    Ótimo, meu amigo

    Para encerrar esse tópico, falta colocar o [Resolvido] no título do tópico.

    Se não souber, veja como ali embaixo na minha assinatura.

    [ ]'s


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cristiano_vioto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 27/04/2015

    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  cristiano_vioto 11/6/2015, 19:03

    Desculpe, fiquei sem computador alguns dias e não pude colocar resolvido no topico.

    Obrigado a todos.

    Conteúdo patrocinado


    etiquetas - [Resolvido]imprimir etiquetas conforme qtde selecionada!!! Empty Re: [Resolvido]imprimir etiquetas conforme qtde selecionada!!!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:24