[Resolvido]imprimir etiquetas conforme qtde selecionada!!!

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

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

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

Obrigado pelo retorno aos dois,

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

Sucesso

Obrigado

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

Ta ai

Download

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

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?

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

ou

Copie e cole


Noob

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

Obrigado

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

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

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.

Ó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

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

Obrigado a todos.