ZEBRADESIGNER ORIENTA?ÃO DE TEXTO

MALA 19/01/2017 16:25:33
#470859

QUERO COLOCAR UM TEXTO EM VERTICAL NUMA ETIQUETA NO ZEBRADESIGNER, ALGUEM PODE ME AJUDAR ?

TEKO 19/01/2017 17:10:05
#470864

Faz muitos anos que trabalhei com Zebra, lembro que eu enviava comandos ZPL da linguagem da própria Zebra.
Na época, o pessoal da Seal que me enviou o manual da linguagem ZPL da Zebra.

Não lembro mais nada.

PLUGSOFTSM 22/01/2017 08:21:17
#470928 Resposta escolhida

Dim pd As New PrintDialog
pd.PrinterSettings.PrinterName = PrnZebra [ô]Nome do driver da impressora

For I As Integer = 1 To 5
Dim S As String = [Ô] [Ô] & vbCrLf
S = S & [Ô]N[Ô] & vbCrLf [ô]Limpa memória, novo
S = S & [Ô]JF[Ô] & vbCrLf
S = S & [Ô]D11[Ô] & vbCrLf [ô]Densidade, padrão 10
S = S & [Ô]q500[Ô] & vbCrLf [ô]Quadro de impressão
S = S & [Ô]Q176,24[Ô] & vbCrLf [ô]240, 30 Largura x altura (acredito que (mm x 8))
S = S & [Ô]R0,2[Ô] & vbCrLf
[ô] S = S & [Ô]A30,2,0,1,1,2,N,[Ô][Ô]JAQUETA CARAMELO[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A300,2,0,1,1,2,N,[Ô][Ô]JAQUETA CARAMELO[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A585,2[txt-color=#e80000],[p3],[/txt-color]1,1,2,N,[Ô][Ô]JAQUETA CARAMELO[Ô][Ô][Ô] & vbCrLf
[ô]Sustitua p3 po 0, 1, 2 ou 3 dependendo do tipo de orientação que deseja para o texto
[ô](p3 values 0–3).

[ô]90 --> Posição
[ô]0 --> Posição do código de Barras 0-Left-Top; 1-Vertical, 2-Rigth-Botton
[ô]1 --> Distância entre as linhas do código da barras (Quanto maior mais longe)
[ô]1 --> Largura dos traços do código da Barras (Quanto maior mais largo)

[ô]60 --> Altura do código da Barras
S = S & [Ô]B50,26,0,1,1,4,40,N,[Ô][Ô]2000000004953[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]B320,26,0,1,1,4,40,N,[Ô][Ô]7898181980838[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]B595,26,0,1,1,4,45,N,[Ô][Ô]7898181980838[Ô][Ô][Ô] & vbCrLf

S = S & [Ô]A50,74,0,1,1,2,N,[Ô][Ô]2000000004953[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A320,74,0,1,1,2,N,[Ô][Ô]7898181980838[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A595,74,0,1,1,2,N,[Ô][Ô]7898181980838[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A50,105,0,1,1,3,N,[Ô][Ô]R$ 139,00 R$ 119,90[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A320,105,0,1,1,3,N,[Ô][Ô]R$ 28,90 R$ 14,85[Ô][Ô][Ô] & vbCrLf
S = S & [Ô]A595,105,0,1,1,3,N,[Ô][Ô]R$ 117,50 R$ 99,50[Ô][Ô][Ô] & vbCrLf

S = S & [Ô]P1[Ô] & vbCrLf
RawPrinterHelper.SendStringToPrinter(pd.PrinterSettings.PrinterName, S)
Next