Amigos, estoy teniendo un error con el foxypreviewer, en otro sistema con lo
que esta descripto abajo entro de 10
Con este otro sistema me da el error El objeto no esta contenido en un form
y no llega a imprimir nada.
Si alguien puede darme una mano se lo agradezco
Gracias
Esto pondo en el formulario para imprimir, previamente selecciono el cursor
REPORTEADOR("camas.frx","Camas")
****************************************************************************
FUNCTION REPORTEADOR
PARAMETERS XP1, XP2
* xp1 = nombre reporte
* xp2 = titulo de la ventana
IF EMPTY(XP1)
MESSAGEBOX('No ha cargado el reporte a imprimir',0+16,' Error')
RETURN (.f.)
ENDIF
IF EMPTY(XP2)
xp2 = ""
ENDIF
SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
PUBLIC loReport as "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
.AddReport(xp1) && ("lista_precios_pdf.frx")
.cLanguage = "SPANISH" && Thisform.Combo1.Value
.nZoomLevel = 5 && initial zoom level of the preview window. Possible
values are:
.RunReport()
ENDWITH
ENDFUNC
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
[email protected] - [email protected]
' +54 351 494.4667 / 153.292.707
þ www.softram.com.ar <http://www.softram.com.ar/>
Q Si no es necesario, no imprima este correo. Todos somos responsables por
el cuidado del medio ambiente.
NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error,
por favor comuníquelo inmediatamente a <mailto:[email protected]>
[email protected] y tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.
Muchas Gracias.
