jotalinux2

Olá a todos, Pretendo criar um Wizard visual para desenhar etiquetas e gerar modelos e codigos tanto em Acbr qnto em comando Pl2 como o ZebraDesing. Gostaria de propor um lugar para compartilhar blocos de codigos comuns para modelos de etiquetas: Modelo Impressora : Tamanho/Modelo Etiqueta: Imagem de exemplo: Bloco de Código para gerar na impressora. Ex: Argox: Modelo = etqPpla Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: Codigo: ImprimirTexto(orNormal, 2, 1, 2, 180, 15, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 10, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 315, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 315, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 315, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 620, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 620, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 620, Etiqueta.Barras, 70); Zebra: epl2 Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: ImprimirTexto(orNormal, 2, 1, 3, 15, 55, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 55, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 55, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 365, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 365, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 365, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 670, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 670, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 670, Etiqueta.Barras, 080, becSIM); Argox: etqPpla Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Centraliza(Etiqueta.Descr, 8) ); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 32, 0, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 4, 15, 450, Etiqueta.Valor); //OU centralizada em 3 linhas sHorizontal := retornaHorizontal(Etiqueta.BarCode, Etiqueta.Barras); //Original Code: Descricao, valor e barras centralizadas horizontalmente FACbrEtiqueta.ImprimirTexto(orNormal, 3, 1, 2, 0220, 0080,Centraliza(Etiqueta.Descr, 3)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '9', '3', 0010, StrToInt(sHorizontal), Etiqueta.Barras, 100, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 5, 1, 1, 0150, 0080, centraliza('R$ ' + Copy(Etiqueta.Valor, 0, 8), 5)); Zebra :epl2 Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Centraliza(Etiqueta.Descr, 8)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 95, 55, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 5, 85, 515, Etiqueta.Valor); Caso tenham modelos para trocar me enviem no email: [email protected] Obrigado.

Boa tarde a todos, usando a emulação de USB->COM5 ao usar as dll´s da pasta de instalação do WinMFD que vem no pacote de instalação gerei sem problemas o CAT52, MF e MFD. Alguém mais está tendo problemas e gostaria de tentar esta solução? dlls em : C:\Program Files (x86)\Bematech\WinMFD2 configuração da porta como no exemplo da Bematech - Plugar a impressora fiscal desligada. - Executar o instalador. - Quando o instalador pedir, ligar a impressora fiscal. - A porta virtual será criada. - Ir em Gerenciador de Dispositivos -> Bematech Serial Virtual Port -> Propriedades. - Nas propriedades da porta virtual, selecionar modo de funcionamento fiscal, informar na combo qual a impressora será usada e apertar "Apply".