Clipper/FiveWin - ¿ Alguien utilizó la clase BARCODE ?

Estimados compañeros:

Necesito generar Códigos de Barra e insertarlos en un listado. Para ello estoy intentando utilizar la clase BARCODE. Le eché un vistazo al ejemplo que viene pero no consigo visualizar los Códigos de Barra en mi informe PRINT....ENDPRINT.

Mi PRG simplificado es:

FUNCTION CBARRAS()
use articulo
PRINT oPrn NAME "codigos de barra" preview
DEFINE FONT ol NAME 'ARIAL' SIZE 0,-9 of oprn
x=1;y=1
PAGE
do while .not. eof()
CB := VRDBarcode():New( oprn, articulo->cbarras, x, y, 300, 30, 8 )
cb:ShowBarcode()
oprn:cmsay(x,y,cb,ol)
x=x+3
skip
enddo
ENDPAGE
endprint
ol:end()
return

Compilo sin problemas y se ejecuta bien, pero el PREVIEW me lo hace SIN mostrar Codigos de Barras. ¿Alguna sugerencia?

Mil gracias.
Un saludo a todos.
LORENZO