SetCopies()

[Mauricio]

Hola,

Porque este codigo no me funciona para imprimir 2 copias de un recibo.

static function ImprimeCredito(nSaldo1, cClientes)
local oFont1, oFont2, oFont3, oFont4, oFont5, oFont6, oFont7, oFont8, oFont9
local aDatos, oPrn, nRenglon := 0, aImportes, cTexto

PRINT oPrn NAME "Impresión de Recibo de Ventas"
oPrn:setcopies(2)


DEFINE FONT oFont1 NAME "Arial" SIZE 0, -10 OF oPrn
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -14 OF oPrn BOLD

PAGE
aDatos := TitleRecibos(oPrn)

nRenglon += .20
oPrn:cmSay(nRenglon, 000.000, (cClientes)->Codigo, oFont9)
nRenglon += .35
oPrn:cmSay(nRenglon, 000.000, (cClientes)->Nombre, oFont9)

ENDPAGE
ENDPRINT
ticket->( dbclosearea())
return nil


Saludos,
Mauricio