Imprimir codigo barras code 128

[Garbi]

Hola, en las parte de una factura necesito imprimir un codigo de barras, en main.rmk he añadido el barlib.lib y el code128.prg,y el #INCLUDE "..\include\barcode.ch"
Si sigo algun ejemplo me da error de Error de argumento: SWITCH.
Mi primera intención es la siguiente puesto que tengo toda la factura con por ejemplo : oPrn:Cmsay(24,15.2,transform((cfactura)->dto,"999.99"),ofonttitulo,,,,1)
Parte de codigo es: (no es completo por que no es necesario), primero me da error al compilar Syntax error: "syntax error at '123456789012'"

Code: Select all  Expand view

static function bloimprimir()


    PRINTER oPrn ;
      NAME oemtoansi("Factura")

      DEFINE FONT oFont NAME "Arial" SIZE 0, -10 OF oPrn
      DEFINE FONT oFontlinea NAME "Arial" SIZE 0, -11 OF oPrn
      DEFINE FONT oFonttitulo NAME "Arial" SIZE 0, -11 OF oPrn BOLD
      DEFINE FONT oFontprecio NAME "Arial" SIZE 0, -10 OF oPrn
      DEFINE FONT ofontfinal NAME "Arial" SIZE 0, -8 OF oPrn
      DEFINE FONT oFontfactura NAME "Arial" SIZE 0,-20 OF oPrn BOLD
      DEFINE FONT oFontcopia NAME "Arial" SIZE 0,-20 OF oPrn BOLD UNDERLINE
      DEFINE FONT oFontfactura NAME "Arial" SIZE 0,-30 OF oPrn BOLD UNDERLINE
      DEFINE FONT oFontcourier NAME "Courier New" SIZE 0,-10 OF oPrn

       page

*      Aqui me gustaria imprimir el codigo de barrar con el codigo del cliente
*      ejemplo:

      oPrn:Cmsay(25.4,19.9,code128 '123456789012' mode 'A',ofonttitulo,,,,1)

      endpage
      endprint

return nil

Muchas Gracias.

[Garbi]

En un ejemplo encontre como hacerlo :
oPrn:CmSay( nLineDes, nCol, 'Soldadura 7018 Para Ver Hasta 40 Caracter', oFont1 )
@ nLineBar, nCol cm_code128 '123456789012' of oPrn SIZE 1
oPrn:CmSay( nLineCod, nCol, '123456789012', oFont )

Pero al imprimir el programa se me cuelga, si quito la linea del codigo de barras en el preview sale perfecto (pero sin el codigo de barras) , pero con la linea de codigo de barras se bloquea.
El ejemplo lleva el sample.exe y va perfecto, pero yo no encuentro el problema. ¿Alguna sugerencia?

[Garbi]

Solucionado.
He puesto en main.rmk
bloque.PRG \
code128.PRG \
ean13.PRG \
banner.PRG \
codabar.PRG \
code3de9.PRG \
barlib.PRG \
int25.PRG \
go_code.PRG \

y su correspondientes obj y barlib.lib y el include en el prg de la impresion y ha funcionado perfectamente. ¿no se si hace falta ponerlos todos? peor sino los pongo no funciona