IMPRESSORA DE ETIQUETAS QL570 BROTHER

ALCIRTEODORO 18/08/2011 10:15:44
#381957
Um cliente comprou um impressora de etiquetas QL570 Brother. Procurei no site do fabricante e internet se existe alguma DLL para impressão mas não achei nada. Alguem sabe como imprimir etiqueta nesta impressora pelo Visual basic 6?

Veja impressora neste link: http://www.kalunga.com.br/prod/impressora-termica-p-etiquetas-ql570-brother/800011
ALMIRSAFADI 18/08/2011 15:54:10
#381993
Você pode usar o método Print de Printer ou criar a etiqueta em Crystal e direcionar para a impressora que estará na rede ou no PC que vai imprimir
ALCIRTEODORO 22/08/2011 19:19:39
#382273
Estou tentanto imprimir da forma abaixo mas sai tudo fora. O tamanho da etiqueta é de 29x90mm

Dim cGetY As Long
Dim cContador As Long

MsgBox [Ô]Prepare a impressora e tecle Enter[Ô], vbInformation, [Ô]Etiqueta[Ô]

[ô]define tipo de medida e tamanho da pagina
Printer.ScaleMode = vbMillimeters
Printer.ScaleHeight = 29
Printer.ScaleWidth = 90
[ô]inicio da impressão
cGetY = 3

FOR i = 1 TO 5

[ô]define onde irá imprimir
Printer.CurrentY = cGetY

Printer.CurrentX = 2
Printer.Font.Name = [Ô]Verdana[Ô]
Printer.Font.Size = 8
Printer.FontBold = True
Printer.Print [Ô]Nome da Loja[Ô]
Printer.FontBold = False

Printer.Print [Ô]Livro: C# Como Programar[Ô]
Printer.CurrentX = 2

Printer.Print [Ô]Autor: HARVEY M. DEITEL[Ô]
Printer.CurrentX = 2

Printer.Print [Ô]Categoria: Linguagem de Programação[Ô]
Printer.CurrentX = 2

Printer.Font = [Ô]EAN13[Ô]
Printer.Font.Size = 9
Printer.Print [Ô]7896303600565[Ô]
Printer.CurrentX = 2

Printer.Font.Name = [Ô]Verdana[Ô]
Printer.CurrentX = 40
Printer.CurrentY = 17 + cGetY
Printer.Font.Size = 8
Printer.FontBold = True
Printer.Print [Ô]Preço: R$ 180,85[Ô]
Printer.Font.Size = 8
Printer.FontBold = False

cContador = cContador + 1
cGetY = (29 * cContador) + 3

NEXT I

[ô]inicia impressão
Printer.EndDoc


PS: Vale lembrar que a etiqueta é impressa na vertical conforme imagem deste link:
http://www.kalunga.com.br/prod/impressora-termica-p-etiquetas-ql570-brother/800011
ALMIRSAFADI 24/08/2011 11:08:20
#382389
Coloca o CurrentY para pular a linha ordenadamente, se a folha tem 15 betiquetas, 3 horizontais e 5 verticais
imprime a primeira linha nas 3 etiquetas usando CurentX, tipo
Printer.CurrentY = 10
Printer.CurrentX = 10
Printer.Print [Ô]Como programar em C#[Ô]
Printer.CurrentX = 110
Printer.Print [Ô]Como programar em C#[Ô]
Printer.CurrentX = 220
Printer.Print [Ô]Como programar em C#[Ô]
Printer.CurrentY = 20
Printer.CurrentX = 10
Printer.Print Printer.Print [Ô]Autor: HARVEY M. DEITEL[Ô]
Printer.CurrentX = 110
Printer.Print Printer.Print [Ô]Autor: HARVEY M. DEITEL[Ô]
Printer.CurrentX = 220
Printer.PrintPrinter.Print [Ô]Autor: HARVEY M. DEITEL[Ô]
e assim por diante
Tópico encerrado , respostas não são mais permitidas
Voltar