Buenas estimados
Hago lo siguinte y no fuciona
oPrn:= TDosPrn():New("USB001")
oPrn:StartPage()
oPrn:Say( oPrn:nRow(),4, "COBRO DE SERVICIO" )
oPrn:Say( oPrn:nRow()+2,0, "Cliente : "+COB->CLIENTE )
oPrn:Say( oPrn:nRow()+1,0, "Contacto: "+COB->CONTACTO )
oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
oPrn:Say( oPrn:nRow()+1,0, "FECHA SERVICIO MONTO" )
oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
oPrn:Say( oPrn:nRow()+1,0,DTOC(MovCob->FECHA)+" "+Left(MovCob->DETALLE,20) )
oPrn:Say( oPrn:nRow(),31,Trans(Cob->SALDO,"9,999.99" ))
oPrn:Say( oPrn:nRow()+1,0, "----------------------------------------")
oPrn:Say( oPrn:nRow()+4,5,"--------------------------")
oPrn:Say( oPrn:nRow()+1,5," Recibí Conforme")
oPrn:Say( oPrn:nRow()+3,2,FecActual(Date()))
oPrn:EndPage()
oPrn:End()Gracias por la ayuda
Saludos,
Adhemar C.
Adhemar C.