morpheus

ola fgsist sua ideia e mais viaveu para se montar esta conequisao mais como nao disponibilisamos muito de um ip fixo eu uso um programa gratuito que me fornece o ip no momento de uso de uma olhada no sit www.no-ip.com funciona com linux que e bom

Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado. ======================================================================================================================== *------------------------ETIQUETA DE PRODUTOS PEQUENAS-------------------- @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû" @ 06,15 SAY "º Etiqueta pequena de produtos º" @ 07,15 SAY "º----------------------------------------------------º" @ 08,15 SAY "º Codigo.....: º" @ 09,15 SAY "º Produto....: º" @ 10,15 SAY "º----------------------------------------------------º" @ 11,15 SAY "º Quantidade.: COLUNAS.: º" @ 12,15 SAY "º Cod.Barra..: º" @ 13,15 SAY "º Impressora.: H-HP E-EPSON º" @ 14,15 SAY "º º" @ 15,15 SAY "º º" @ 16,15 SAY "º º" @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü" *SAVE SCREEN TO TELA4 *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque CODIGO=SPACE(15) DESCRICAO=SPACE(30) CDBARRA="S" IMPRE=SPACE(1) DO WHILE .T. *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE---------- * RESTORE SCREEN FROM TELA4 * SET COLOR TO &COR_ALERTA * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. ' * SET COLOR TO &COR_NORMAL * IF .NOT. PEGA_PRO1(08,30,09,30) * EXIT * ENDIF *----------------------------------------------------------------------- OK =0 X =0 CLN =0 @ 08,30 GET CODIGO PICTURE "@!" @ 09,30 GET DESCRICAO PICTURE "@!" @ 11,30 GET OK PICTURE "###" @ 11,45 GET CLN PICTURE "###" @ 12,30 GET CDBARRA PICTURE "@!" @ 13,30 GET IMPRE PICTURE "@!" READ ****************** SEGUE AS VARIAVEIS DO PROGRAMA ********************** IF OK = 0 CLN= 0 RETURN ENDIF DO WHILE X < OK IF CDBARRA="S" PUBLIC ESC,NULL,PRINTER,HEIGHT ESC = CHR(27) NULL = "" * DEFAULT TO TWO LINE LASERjET BARCODE PRINTER = IMPRE ******** DEZENHO DA IMPRESAO ****** HEIGHT = 2 IF PRINTER = "H" DO SETUP_HP ELSEIF PRINTER = "E" DO SETUP_EPSON ENDIF **************** FIN VARIAVEL ************* ***** Define CODE 3of9 Characer Set ***** DO DEF_CODE39 ***** Get text to print and print barcode ***** STAY = .T. * DO WHILE STAY ***** Create empty variable. The length is arbitrary as there is ***** ***** no defined maximum length of a 3o9 barcode. ***** MESSAGE = SPACE(25) MESSAGE = CODIGO BARCODE = SPACE(25) BARCODE = CODIGO ***MUDOU 01/06/06 MESSAGE1= LEFT (DESCRICAO,20) IF EMPTY(M->MESSAGE) ***** exit on no message text STAY = .F. LOOP ENDIF ***** Prepend and append required asterik's to trimmed message ***** M->MESSAGE = TRIM (M->MESSAGE) M->MESSAGE1 = TRIM (M->MESSAGE1) M->BARCODE = TRIM (M->BARCODE) SET DEVICE TO PRINT @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,30 SAY + M->MESSAGE @ 1,45 SAY + M->MESSAGE @ 1,60 SAY + M->MESSAGE @ PROW()+1,00 SAY +M->MESSAGE1 @ PROW()+2,00 say" " SET DEVICE TO SCREEN ***** Check for page eject ***** ***** (necessary to see what you've done on a laserjet) ***** EJECT = .F. * ENDDO * RETURN X=X+1 LOOP ENDIF IF CDBARRA="N" SET DEVICE TO PRINT @ PROW()+1,00 SAY " " @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO) *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW()+1,00 SAY LEFT(DESCRICAO,15) @ PROW() ,20 SAY LEFT(DESCRICAO,15) @ PROW() ,41 SAY LEFT(DESCRICAO,15) @ PROW() ,62 SAY LEFT(DESCRICAO,15) *@ PROW() ,83 SAY LEFT(DESCRICAO,15) @ PROW()+1,00 SAY ' ' X=X+1 ENDIF ENDDO SET DEVICE TO SCREEN ENDDO RETURN ***************** FUNCTION BARCODE PARAMETERS MESSAGE CODE = "" DO CASE CASE PRINTER = "H" * read message character at a time and build barcode FOR L = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I,1) CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS NEXT *********************** tenho que muda aqui ******************* * CODE = START + CODE + END CASE PRINTER = "E" ******** CONTROLA LARGURA E ALTURA ****** FOR H = 1 TO HEIGHT FOR I = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I) * build barcoded string CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS * print barcode character at a time on Epson PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE) NEXT * perform 23/216 line feed PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13)) NEXT * perform 5/216 line feed PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13)) * reset printer to turn off graphics and reset to 10cpi PRINTCODE(ESC+"@") ENDCASE RETURN CODE ***** End of Function(BARCODE) ***** PROCEDURE SETUP_HP PUBLIC NB,WB,NS,WS,START,END *** define bars and spaces for HP LaserJet II SMALL_BAR = 3 && NUMBER OF POINTS PER BAR WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR DPL = 50 && DOTS PER LINE 300DPI/6LPI = ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X" ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X" NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x" WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x" *** adjust cusor position to start at top of line and return to bottom of line START = ESC+"*P-50Y" END = ESC+"*P+50Y" RETURN ***** End of Procedure(SETUP_HP) ***** PROCEDURE SETUP_EPSON PUBLIC NB,WB,NS,WS,N1,N2 ***** DEFINE EPSON BARS AND SPACES NS = CHR(0) + CHR(0) WS = CHR(0) + CHR(0) + CHR(0) + CHR(0) NB = CHR(255) WB = CHR(255) + CHR(255) + CHR(255) ***** set printer to 2/216 lines per inch PRINTCODE(ESC+CHR(51)+CHR(2)) ***** calculate N1 and N2 values for dot graphics command COLS = 21 N1 = COLS % 256 && MODULUS N2 = INT(COLS/256) RETURN ***** End of Procedure(SETUP_EPSON) ***** PROCEDURE DEF_CODE39 PUBLIC CHAR[44], CHARS CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%" CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1" CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2" CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3" CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4" CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5" CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6" CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7" CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8" CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9" CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0" CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A" CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B" CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C" CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D" CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E" CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F" CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G" CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H" CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I" CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J" CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K" CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L" CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M" CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N" CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O" CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P" CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q" CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R" CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S" CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T" CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U" CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V" CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W" CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X" CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y" CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z" CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-" CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "." CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " " CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*" CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$" CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/" CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+" CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%" RETURN ***************** FUNCTION PRINTCODE PARAMETERS CODE SET CONSOLE OFF SET PRINT ON ?? CODE SET PRINT OFF SET CONSOLE ON ***RETURN NULL ***** End of Function(PRINTCODE) ***** Editado por - morpheus on 22/07/2006 21:30:26

Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado. ======================================================================================================================== *------------------------ETIQUETA DE PRODUTOS PEQUENAS-------------------- @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû" @ 06,15 SAY "º Etiqueta pequena de produtos º" @ 07,15 SAY "º----------------------------------------------------º" @ 08,15 SAY "º Codigo.....: º" @ 09,15 SAY "º Produto....: º" @ 10,15 SAY "º----------------------------------------------------º" @ 11,15 SAY "º Quantidade.: COLUNAS.: º" @ 12,15 SAY "º Cod.Barra..: º" @ 13,15 SAY "º Impressora.: H-HP E-EPSON º" @ 14,15 SAY "º º" @ 15,15 SAY "º º" @ 16,15 SAY "º º" @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü" *SAVE SCREEN TO TELA4 *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque CODIGO=SPACE(15) DESCRICAO=SPACE(30) CDBARRA="S" IMPRE=SPACE(1) DO WHILE .T. *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE---------- * RESTORE SCREEN FROM TELA4 * SET COLOR TO &COR_ALERTA * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. ' * SET COLOR TO &COR_NORMAL * IF .NOT. PEGA_PRO1(08,30,09,30) * EXIT * ENDIF *----------------------------------------------------------------------- OK =0 X =0 CLN =0 @ 08,30 GET CODIGO PICTURE "@!" @ 09,30 GET DESCRICAO PICTURE "@!" @ 11,30 GET OK PICTURE "###" @ 11,45 GET CLN PICTURE "###" @ 12,30 GET CDBARRA PICTURE "@!" @ 13,30 GET IMPRE PICTURE "@!" READ ****************** SEGUE AS VARIAVEIS DO PROGRAMA ********************** IF OK = 0 CLN= 0 RETURN ENDIF DO WHILE X < OK IF CDBARRA="S" PUBLIC ESC,NULL,PRINTER,HEIGHT ESC = CHR(27) NULL = "" * DEFAULT TO TWO LINE LASERjET BARCODE PRINTER = IMPRE ******** DEZENHO DA IMPRESAO ****** HEIGHT = 2 IF PRINTER = "H" DO SETUP_HP ELSEIF PRINTER = "E" DO SETUP_EPSON ENDIF **************** FIN VARIAVEL ************* ***** Define CODE 3of9 Characer Set ***** DO DEF_CODE39 ***** Get text to print and print barcode ***** STAY = .T. * DO WHILE STAY ***** Create empty variable. The length is arbitrary as there is ***** ***** no defined maximum length of a 3o9 barcode. ***** MESSAGE = SPACE(25) MESSAGE = CODIGO BARCODE = SPACE(25) BARCODE = CODIGO ***MUDOU 01/06/06 MESSAGE1= LEFT (DESCRICAO,20) IF EMPTY(M->MESSAGE) ***** exit on no message text STAY = .F. LOOP ENDIF ***** Prepend and append required asterik's to trimmed message ***** M->MESSAGE = TRIM (M->MESSAGE) M->MESSAGE1 = TRIM (M->MESSAGE1) M->BARCODE = TRIM (M->BARCODE) SET DEVICE TO PRINT @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,30 SAY + M->MESSAGE @ 1,45 SAY + M->MESSAGE @ 1,60 SAY + M->MESSAGE @ PROW()+1,00 SAY +M->MESSAGE1 @ PROW()+2,00 say" " SET DEVICE TO SCREEN ***** Check for page eject ***** ***** (necessary to see what you've done on a laserjet) ***** EJECT = .F. * ENDDO * RETURN X=X+1 LOOP ENDIF IF CDBARRA="N" SET DEVICE TO PRINT @ PROW()+1,00 SAY " " @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO) *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW()+1,00 SAY LEFT(DESCRICAO,15) @ PROW() ,20 SAY LEFT(DESCRICAO,15) @ PROW() ,41 SAY LEFT(DESCRICAO,15) @ PROW() ,62 SAY LEFT(DESCRICAO,15) *@ PROW() ,83 SAY LEFT(DESCRICAO,15) @ PROW()+1,00 SAY ' ' X=X+1 ENDIF ENDDO SET DEVICE TO SCREEN ENDDO RETURN ***************** FUNCTION BARCODE PARAMETERS MESSAGE CODE = "" DO CASE CASE PRINTER = "H" * read message character at a time and build barcode FOR L = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I,1) CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS NEXT *********************** tenho que muda aqui ******************* * CODE = START + CODE + END CASE PRINTER = "E" ******** CONTROLA LARGURA E ALTURA ****** FOR H = 1 TO HEIGHT FOR I = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I) * build barcoded string CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS * print barcode character at a time on Epson PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE) NEXT * perform 23/216 line feed PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13)) NEXT * perform 5/216 line feed PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13)) * reset printer to turn off graphics and reset to 10cpi PRINTCODE(ESC+"@") ENDCASE RETURN CODE ***** End of Function(BARCODE) ***** PROCEDURE SETUP_HP PUBLIC NB,WB,NS,WS,START,END *** define bars and spaces for HP LaserJet II SMALL_BAR = 3 && NUMBER OF POINTS PER BAR WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR DPL = 50 && DOTS PER LINE 300DPI/6LPI = ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X" ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X" NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x" WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x" *** adjust cusor position to start at top of line and return to bottom of line START = ESC+"*P-50Y" END = ESC+"*P+50Y" RETURN ***** End of Procedure(SETUP_HP) ***** PROCEDURE SETUP_EPSON PUBLIC NB,WB,NS,WS,N1,N2 ***** DEFINE EPSON BARS AND SPACES NS = CHR(0) + CHR(0) WS = CHR(0) + CHR(0) + CHR(0) + CHR(0) NB = CHR(255) WB = CHR(255) + CHR(255) + CHR(255) ***** set printer to 2/216 lines per inch PRINTCODE(ESC+CHR(51)+CHR(2)) ***** calculate N1 and N2 values for dot graphics command COLS = 21 N1 = COLS % 256 && MODULUS N2 = INT(COLS/256) RETURN ***** End of Procedure(SETUP_EPSON) ***** PROCEDURE DEF_CODE39 PUBLIC CHAR[44], CHARS CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%" CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1" CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2" CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3" CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4" CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5" CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6" CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7" CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8" CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9" CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0" CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A" CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B" CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C" CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D" CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E" CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F" CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G" CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H" CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I" CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J" CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K" CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L" CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M" CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N" CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O" CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P" CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q" CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R" CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S" CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T" CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U" CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V" CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W" CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X" CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y" CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z" CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-" CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "." CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " " CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*" CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$" CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/" CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+" CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%" RETURN ***************** FUNCTION PRINTCODE PARAMETERS CODE SET CONSOLE OFF SET PRINT ON ?? CODE SET PRINT OFF SET CONSOLE ON ***RETURN NULL ***** End of Function(PRINTCODE) ***** Editado por - morpheus on 22/07/2006 21:30:26

amigos esto com um problema que nao to abito para resovelo por isto peso por ajuda nao consigo imprimir um codigo de barra em x colunas e y linhas sera que tem auguem ai que pode me ajudar. se vc utiliza o msn pegue o meu e me adicione para mandar mais detalhes por favor obrigado. morphel_alenda@hotimail.com Editado por - morpheus on 22/07/2006 21:11:59

amigos esto com um problema que nao to abito para resovelo por isto peso por ajuda nao consigo imprimir um codigo de barra em x colunas e y linhas sera que tem auguem ai que pode me ajudar. se vc utiliza o msn pegue o meu e me adicione para mandar mais detalhes por favor obrigado. morphel_alenda@hotimail.com Editado por - morpheus on 22/07/2006 21:11:59

ola amigos sou novo no fivewin e gostaria de uma ajuda se vc pode me ajuda eu agradesso. to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial como lx300.auguem pode me ajudar ex. IIIIII 1234 obrigado

ola amigos sou novo no fivewin e gostaria de uma ajuda se vc pode me ajuda eu agradesso. to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial como lx300.auguem pode me ajudar ex. IIIIII 1234 obrigado

ola amigos sou novo no fivewin e gostaria de uma ajuda se vc pode me ajuda eu agradesso. to precisando criar um progama que ler o meus cobigo de produto e crie um codigo de barra e emprima numa matricial como lx300.auguem pode me ajudar ex. IIIIII 1234 obrigado