... local nhoja := 0 .... if lsigo PRINT oPrn NAME "Ventas de Formularios" PREVIEW MODAL if Empty( oPrn:hDC ) MsgStop( "Impresora Fuera de Linea" ) return nil endif .... while !CliFor->(Eof()) cMensaje := left(CliFor->RazonSoc,15) oMensaje:Refresh() //msginfo(str(Clifor->Codcliente,4),'Cliente') ...