Xprint $crlf problems

[Eduardo Miranda Alvarez Member Find all posts View Profile Close Eduardo Miranda Alvarez]

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

[Michael Mattias Member Find all posts View Profile Close Michael Mattias]

#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 Member Find all posts View Profile Close Michael Mattias]

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