ETIQUETAS

MICHAELL 26/08/2009 21:50:27
#321061
Olá amigos.

Gostaria de fazer em meu sistema mala direta em etiquetas personalizada, no qual o cliente personaliza em qual etiqueta imprimir.
Minhas duvidas são as seguintes:

- Qual o meu metodo de fazer isso? Print, Printer, Data Report, Crystal..???
- As medidas alteram de impressora para impressora se for matricial, jato de tinta ou a laser?
- Como programar a altura e largura da margem?

agradeço quem poder ajudar..obrigado
INFOSISTEMAS 27/08/2009 09:44:22
#321092
http://www.macoratti.net/crys_rpt.htm entra neste link la tem um metodo bem interessante que pode tirar suas duvidas !
MICHAELL 27/08/2009 09:58:29
#321094
bem , agradeço a ajuda, mas eu nao queria algo pronto, apenas as respostas das minhas perguntas..
pra saber por onde começar... nao adianta começar no crystal e depois outro usuario dizer que printer é melhor.. ai chega outro e diz que printer nao funciona direito... rsrsrs

queria a ideia de alguem que ja fez... que possa me ajudar..
LEANDRO 27/08/2009 10:30:17
#321098
Eu fiz uma matriz para imprimir as etiquetas.
Utilizando o Printer
MICHAELL 28/08/2009 14:59:19
#321259
como que voce fez leandro? tem como explicar pra gente?
tenho duvida é na impressao em impressao matricial, pois ela nao começa do ponto zero Linha 0 Coluna 0 tem uma diferenca.
queria saber como resolver esse problema...
MICHAELL 29/08/2009 12:01:05
#321339
bem pessoal, consegui fazendo em Printer...usando medidas em cm
o cliente pode colocar as medidas e entao imprimir em qualquer etiqueta com qualquer tamanho.

Busquei informacoes, e descobri que essas etiquetas normais é apenas para impressoras jato de tinta ou laser.
e para impressoras matriciais existem etiquetas em folhas continuas..
TECLA 29/08/2009 12:37:42
#321340 Resposta escolhida
Vou compartilhar um código que fiz há mais ou menos 2 ano e meio.

  • Formulário de configuração


  • Resultado da impressão


  • Código fonte
    Sub ImprimirEtiqueta(Cod As Integer, Desc As String, Preco As Currency, EspEsq As Integer, EspCen As Integer, EspVer As Integer, QtdeEtiq As Integer)
    On Error GoTo erro
    • [txt-color=#0B6138][ô]IMPRIMIR ETIQUETAS
    [ô]=====================================
    [ô]Mod. Folha......: Formulário contínuo
    [ô]Dimensão........: 26,5mm X 15mm
    [ô]Esp. Etiq.......: 4mm
    [ô]Qtde. Etiq. Hor.: 5 etiquetas
    [ô]Qtde. Etiq. Ver.: 18 etiquetas
    [ô]Qtde. Total. Etq: 90 etiquetas
    [ô]=====================================
    [/txt-color]Dim CodProd As String
    Dim DescProd As String * 14
    Dim ValProd As String
    Dim EspacoEsquerdo As Integer
    Dim EspacoCentral As Integer
    Dim Valor(4) As Integer
    Dim PosY As Integer
    [ô]---------------------
    [ô]Config. da Impressora
    [ô]---------------------
    Printer.Font = [Ô]Verdana[Ô]
    Printer.FontSize = 7
    Printer.ScaleHeight = 20000
    PosY = 200
    [ô]----------------------------
    [ô]Produto | Dados de impressão
    [ô]----------------------------
    CodProd = [Ô]Cód: [Ô] & Cod
    DescProd = Desc
    ValProd = [Ô]R$ [Ô] & Format(Preco, [Ô]###,##0.00[Ô])
    EspacoEsquerdo = EspEsq
    EspacoCentral = EspCen
    [ô]------------------------------
    [ô]Configuração de Espaço Central
    [ô]------------------------------
    For i = 0 To 4
    Valor(i) = (i) * EspacoCentral + EspacoEsquerdo
    [ô]MsgBox Valor(i)
    Next
    [ô]--------------------------------
    [ô]Impressão do Produto na Etiqueta
    [ô]--------------------------------
    [ô]Printer.Print
    Printer.CurrentY = PosY
    For i = 1 To QtdeEtiq
    [ô]Código
    Printer.Print Tab(Valor(0)); CodProd; [ô]7
    Printer.Print Tab(Valor(1)); CodProd; [ô]33
    Printer.Print Tab(Valor(2)); CodProd; [ô]59
    Printer.Print Tab(Valor(3)); CodProd; [ô]85
    Printer.Print Tab(Valor(4)); CodProd [ô]111
    [ô]Descrição
    Printer.Print Tab(Valor(0)); DescProd; [ô]7
    Printer.Print Tab(Valor(1)); DescProd; [ô]33
    Printer.Print Tab(Valor(2)); DescProd; [ô]59
    Printer.Print Tab(Valor(3)); DescProd; [ô]85
    Printer.Print Tab(Valor(4)); DescProd [ô]111
    [ô]Valor R$
    Printer.Print Tab(Valor(0)); ValProd; [ô]7
    Printer.Print Tab(Valor(1)); ValProd; [ô]33
    Printer.Print Tab(Valor(2)); ValProd; [ô]59
    Printer.Print Tab(Valor(3)); ValProd; [ô]85
    Printer.Print Tab(Valor(4)); ValProd [ô]111

    PosY = PosY + cmbEspVer.Text
    Printer.CurrentY = PosY

    Next i
    [ô]Enviar para a impressora
    Printer.EndDoc
    Exit Sub

    erro:
    MsgBox [Ô]Ocorreu um Erro ao Imprimir Etiqueta(s).[Ô], vbCritical, [Ô]Imprimir Etiqueta[Ô]
    End Sub

    Funciona até hoje (aliás tem muito tempo que não vejo o cliente... hehehe) e é impresso é uma impressora EPSON LX-300.
    MICHAELL 02/09/2009 13:54:03
    #321708
    Obrigado Tecla.. me ajudou um monte...valew
    Tópico encerrado , respostas não são mais permitidas
    Voltar