IMPRESSORA TÉRMICA PARA ETIQUETAS

HUBER 06/05/2014 08:04:31
#437887

Olá amigos, última dúvida

Utilizando as funções Printer e o código de barras Code-Bar 39 estou conseguindo resolver meu problema de impressão com a impressora DYMO, minha última dúvida é, são 2 etiquetas a cada espaçamento, sendo assim entendi que a cada duas etiquetas tenho que enviar o comando Printer.EndDoc. Então a impressora dá uma parada, imprime, parada, iimprime, etc. Abaixo código que estou usando, se alguém souber se existe alguma forma de melhorar para o objeto printer.

Etq = 1
Do While Not TFEti.EOF

If Etq = 1 Then
[ô]etiqueta 1
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 150
Printer.CurrentY = 50
Printer.Print [Ô]*[Ô] & LPad(TProdutos![Código do Produto], 5, 0) & [Ô]*[Ô]
[ô]linha 1
Printer.FontName = [Ô]Arial[Ô]
Printer.FontSize = 6
Printer.CurrentX = 150
Printer.CurrentY = 350
Printer.Print CodBarras
Else
[ô]etiqueta 2
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 150
Printer.CurrentY = 670
Printer.Print [Ô]*[Ô] & LPad(TProdutos![Código do Produto], 5, 0) & [Ô]*[Ô]
[ô]linha 2
Printer.FontName = [Ô]Arial[Ô]
Printer.FontSize = 6
Printer.CurrentX = 150
Printer.CurrentY = 1000
Printer.Print CodBarras
End If
If Etq = 2 Then
Etq = 1
Printer.EndDoc
Else
Etq = Etq + 1
End If
TFEti.MoveNext
If TFEti.EOF Then Printer.EndDoc: Exit Do
Loop

HUBER 06/05/2014 08:46:39
#437890

Mais uma dúvida.

Como são 2 colunas também, a segunda coluna sai cortado o escrito, não consigo fazer começar do inicio da segunda coluna. Mudo Printer.CurrentX e Printer.CurrentY mais nada adianta

HUBER 08/05/2014 10:48:37
#438004

Olá novamente

Utilizando as funções Printer e o código de barras Code-Bar 39 estou conseguindo resolver meu problema de impressão com a impressora DYMO, minha última dúvida é, são 2 etiquetas a cada espaçamento, sendo assim entendi que a cada duas etiquetas tenho que enviar o comando Printer.EndDoc. Então a impressora dá uma parada, imprime, parada, iimprime, etc. Abaixo código que estou usando, se alguém souber se existe alguma forma de melhorar para o objeto printer.

Etq = 1
Do While Not TFEti.EOF

PaperID = GetPaperID([Ô]30252 Address[Ô])
If Printer.PaperSize <> 200 Then
Printer.PaperSize = 200
End If
If Etq = 1 Then
[ô]linha 1
Printer.FontName = [Ô]Arial[Ô]
Printer.FontSize = 6
Printer.CurrentX = 150: Printer.CurrentY = 50: Printer.Print [Ô]COR: [Ô] & TFEti!PROCOR
Printer.CurrentX = 150: Printer.CurrentY = 200: Printer.Print [Ô]TAM: [Ô] & TFEti!PROGRT
Printer.CurrentX = 150: Printer.CurrentY = 350: Printer.Print [Ô]MAG99[Ô] & LPad(Retira(TProdutos!PROCDO, [Ô],[Ô], UM_A_UM), 5, 0)
Printer.CurrentX = 2100: Printer.CurrentY = 350: Printer.Print CodBarras

[ô]etiqueta 1
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 2050
Printer.CurrentY = 50
Printer.Print [Ô]*[Ô] & LPad(TProdutos![Código Do Produto], 5, 0) & [Ô]*[Ô]

Else

[ô]linha 2
Printer.FontName = [Ô]Arial[Ô]
Printer.FontSize = 6
Printer.CurrentX = 150: Printer.CurrentY = 650: Printer.Print [Ô]COR: [Ô] & TFEti!PROCOR
Printer.CurrentX = 150: Printer.CurrentY = 800: Printer.Print [Ô]TAM: [Ô] & TFEti!PROGRT
Printer.CurrentX = 150: Printer.CurrentY = 950: Printer.Print [Ô]MAG99[Ô] & LPad(Retira(TProdutos!PROCDO, [Ô],[Ô], UM_A_UM), 5, 0)
Printer.CurrentX = 2100: Printer.CurrentY = 950: Printer.Print CodBarras

[ô]etiqueta 2
Printer.FontName = [Ô]Bar-Code 39[Ô]
Printer.FontSize = 12
Printer.CurrentX = 2050
Printer.CurrentY = 650
Printer.Print [Ô]*[Ô] & LPad(TProdutos![Código Do Produto], 5, 0) & [Ô]*[Ô]
End If
If Etq = 2 Then
Etq = 1
Printer.EndDoc
Else
Etq = Etq + 1
End If

vgQuant = vgQuant + 1
If TFEti!FGEQTD = vgQuant Then
TFEti.MoveNext
If TFEti.EOF Then: Printer.EndDoc: Exit Do
vgQuant = 0
End If
Loop
Exit Sub