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