Announcement

Collapse
No announcement yet.

Xprint $crlf problems

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Xprint $crlf problems

    I have problems with XPrint Add to print strings that contain $ CRLF.
    I've used this way, there will be a better one?
    Thank you:


    #COMPILE EXE
    #DIM ALL

    FUNCTION PBMAIN () AS LONG

    '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    'xprint ejemplo Eliminar $CRLF
    'KILL $CRLF FOR Xprint
    'aqui se trata de eliminar $CRLF para poder imprimir en xprint que no permite $crlf
    ' de control text multilinea y richedit control
    '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    LOCAL x&,li&,filaExtra$(),Lstring AS STRING

    Lstring = "Frase uno"+$CRLF+"Frase dos"+$CRLF+"Frase tres"+$CRLF+"Frase cuatro"+$CRLF+"Etc"

    MSGBOX Lstring ,64,"Con $CRLF"

    REPLACE ANY $CR WITH "," IN Lstring 'eliminar (out) chr$(10) y añadir coma para parse$
    REPLACE ANY $LF WITH " " IN Lstring 'eliminar (out) chr$(13)
    x& = PARSECOUNT(Lstring) 'contar las comas que hay para extraer por medio de parse$
    DIM filaExtra$(x&)


    MSGBOX Lstring ,64,"KILL $CRLF and ready for Parse$"

    'Captura de cadenas de informacion
    FOR li = 1 TO x
    IF PARSE$(Lstring,li)<>"" THEN filaExtra(li)= PARSE$(Lstring,li) 'capture lineas
    NEXT
    'Impresion Printer
    IF ERR = 0 AND LEN(XPRINT$) > 0 THEN
    XPRINT ATTACH CHOOSE
    FOR li = 1 TO x
    IF filaExtra(li)<>"" THEN XPRINT filaExtra(li)
    NEXT
    XPRINT FORMFEED ' Issue a formfeed
    XPRINT CLOSE ' Deselect the printer
    END IF


    '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&


    END FUNCTION

  • #2
    Code:
    #COMPILE EXE
    #DIM ALL
    
    FUNCTION PBMAIN () AS LONG
    
    '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    'xprint ejemplo Eliminar $CRLF
    'KILL $CRLF FOR Xprint
    'aqui se trata de eliminar $CRLF para poder imprimir en xprint que no permite $crlf
    ' de control text multilinea y richedit control
    '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    LOCAL x&,li&,filaExtra$(),Lstring AS STRING
    
    Lstring = "Frase uno"+$CRLF+"Frase dos"+$CRLF+"Frase tres"+$CRLF+"Frase cuatro"+$CRLF+"Etc"
    
    MSGBOX Lstring ,64,"Con $CRLF"
    
    REPLACE ANY $CR WITH "," IN Lstring 'eliminar (out) chr$(10) y añadir coma para parse$
    REPLACE ANY $LF WITH " " IN Lstring 'eliminar (out) chr$(13)
    x& = PARSECOUNT(Lstring) 'contar las comas que hay para extraer por medio de parse$
    DIM filaExtra$(x&)
    
    
    MSGBOX Lstring ,64,"KILL $CRLF and ready for Parse$"
    
    'Captura de cadenas de informacion
    FOR li = 1 TO x
    IF PARSE$(Lstring,li)<>"" THEN filaExtra(li)= PARSE$(Lstring,li) 'capture lineas
    NEXT
    'Impresion Printer
    
    IF ERR = 0 AND LEN(XPRINT$) > 0 THEN
       XPRINT ATTACH CHOOSE
        FOR li = 1 TO x
           IF filaExtra(li)<>"" THEN XPRINT filaExtra(li)
        NEXT
        XPRINT FORMFEED ' Issue a formfeed
        XPRINT CLOSE ' Deselect the printer
    [COLOR="Red"][B]ELSE
        MSGBOX USING$ ("ERR #  LEN(XPRINT$) #", ERR, LEN(XPRINT$))[/B][/COLOR]
    END IF
    
    END FUNCTION
    Michael Mattias
    Tal Systems (retired)
    Port Washington WI USA
    [email protected]
    http://www.talsystems.com

    Comment


    • #3
      PS:
      How to Use Code Tags So Others May Read and Understand Posted Code Without The Need to Edit, Select, Copy and Paste Into Notepad
      Michael Mattias
      Tal Systems (retired)
      Port Washington WI USA
      [email protected]
      http://www.talsystems.com

      Comment

      Working...
      X