Etiquetas Pimaco Epson LX 300


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Etiquetas Pimaco Epson LX 300

Zork

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 04/03/2011 14:45 hs

Boa TArde

Pessoal estou no desespero em não conseguir imprimir em etiquetas. Preciso imprimir até meio de março e são mais de 200.

Tentei usar o PRINTER mas ele desalinha conforme passa as etiquetas. Ja tentei usar tipo um contador para quando chegar na linha 12, ele zerar e começcar do zero mais nada.

Se alguem puder me ajudar agradeço.

A etiqueta é essa bendita.

http://www.kalunga.com.br/prod/etiqueta-p-impmatricial-1carr-107x23-pima-tab-pimaco/221801

Ela tem 12 etiquetas por folha.

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 04/03/2011 21:27 hs

em que momento desalinha? o printer é muito bom para matricial, vc pode fazer em crystal report mais é mais trabalhoso

Zork

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 04/03/2011 22:09 hs

Boa Noite

Juan ele desalinha ja na segunda impressao.

As informacoes na segunda etiqueta sobe a na terceira tb e por ai vai.

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 05/03/2011 10:36 hs

Certo, então se vc resolver a segunda etiqueta va resolver para as demais, tem que diminuir o espaço entre a impressao da 1 etiqueta e a segunda etiqueta.

Zork

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 10/03/2011 09:08 hs

Juan obrigado pela atenção

Entao eu deduzi a mesma coisa, mas na pratica nao esta acontecendo assim kkkk

OLha o codigo

Printer.ScaleMode = vbCentimeters

Printer.Height = 2.38 * 567           'Altura da etiq. em cm. * 1/2 twip
Printer.Width = 10.66 * 567          'Largura em cm. * 1/2 twip

  With Printer
        .Orientation = vbPRORPortrait    'Imprime na vertical
        .PrintQuality = vbPRPQDraft      'Imprime com qualidade baixa e maior velocidade
        .Duplex = vbPRDPSimplex          'Imprime na frente do formulário
        .ColorMode = vbPRCMMonochrome    'imprime em preto e branco
'        .Copies = 1                     'Tem impressoara que não suporta este comando
        .Font.Name = "Draft 10cpi"       'Fonte de impressora matricial (LX-300)
        .FontBold = True
  End With

linha = 1

For i = 1 To 5
        Printer.CurrentX = 10
        Printer.Print "1"
        Printer.CurrentX = 10
        Printer.Print "2"
        Printer.CurrentX = 10
        Printer.Print "3"
        Printer.CurrentX = 10
        Printer.Print "4"
        Printer.CurrentX = 10
        Printer.Print "5"
        Printer.CurrentX = 10
        Printer.Print ""
        Printer.Print ""

   Next i

Printer.EndDoc

Acima apenas estou imprimindo numeros para ver as linhas

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR