Titulo del Informe

Hola Alberto

Este ejemplo lo publico el compañero Juan Carlos García (Rep. Dom.)
Define un Form que sirva como ventana y lanza el Reporte sobre esa Forma, lo
puedes hacer a utilizando OOP
i.e

Private poForm
poForm = CREATEOBJECT("frm_reporte")
WITH poForm
.Caption = [Nombre de Mi Ventana]
.ReportName = 'miReporte.Frx'
.DoReport
END WITH

RELEASE poForm
poForm = NULL

DEFINE CLASS frm_reporte as FORM
ReportName = [ ]
WindowState = 2
PROCEDURE DoReport
this.show()
REPORT FORM (this.ReportName) PREVIEW IN WINDOW (this.Name)
ENDPROC
ENDEFINE


Y este ejemplo lo coloco en la news Esparta Palma.


Puedes creear un formulario y dejar ahi el Preview, puedes utilizar el
método sugerido a continuación:


loForm = CREATEOBJECT("Form")
WITH loForm
.Caption = "Tu Titulo del Preview"
.WindowState = 2 && Maximized
.Show()
REPORT FORM tureporte NOCONSOLE ;
TO PRINTER PROMPT PREVIEW WINDOW (.Name)
.Release()
ENDWITH



O puedes ver este información del PortalFox:

Print Preview en ventana Maximizada versión OOP
http://www.portalfox.com/article.php?sidP5



Verifica cual es el que te funciona y nos comentas luego.

Saludos cordiales,

T.S.U. Edhin Jiménez
Coordinador Estatal Zulia
PortalFox Venezuela
Maracaibo, Venezuela

"Alberto Chafio Herrera" escribió en el mensaje
news:eoSl$ep$

Como puedo cambiar el titulo de mi informe, ya que me sale Diseñador de
Informes - nombreinforme.frx, asi mismo como puedo cambiar su icono.

Alberto Chafio. H.
Bach. Ingenieria de Sistemas e Informática
Cel. (065) 9772119


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Utilicé la última opción y salió perfecto, pero cuando quise hacer una
consulta con condición abría el informe pero se cerraba ahi mismo, el
script es el siguiente:

loForm = CREATEOBJECT("Form")
WITH loForm
.Caption = "Reporte Anual"
.WindowState = 2 && Maximized
.Show()
REPORT FORM C:\Adquisiciones\Informes\InfLogr FOR
RIGHT(val(fenvio),2)=RIGHT(ALLTRIM(Thisform.Text1.value),2) NOCONSOLE ;
TO PRINTER PROMPT PREVIEW WINDOW (.Name)
.Release()
ENDWITH

en donde fenvio es un dato tipo fecha y estos son los datos que contiene
01/05/04
09/06/04
15/02/05

Alberto Chafio. H.
Bach. Ingenieria de Sistemas e Informática
Cel. (065) 9772119

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Cuando el reporte abre y cierra inmediatamente, es porque no tiene
información que mostrar.

Saludos cordiales,

T.S.U. Edhin Jiménez
Coordinador Estatal Zulia
PortalFox Venezuela
Maracaibo, Venezuela

"Alberto Chafio Herrera" escribió en el mensaje
news:

Utilicé la última opción y salió perfecto, pero cuando quise hacer una
consulta con condición abría el informe pero se cerraba ahi mismo, el
script es el siguiente:

loForm = CREATEOBJECT("Form")
WITH loForm
.Caption = "Reporte Anual"
.WindowState = 2 && Maximized
.Show()
REPORT FORM C:\Adquisiciones\Informes\InfLogr FOR
RIGHT(val(fenvio),2)=RIGHT(ALLTRIM(Thisform.Text1.value),2) NOCONSOLE ;
TO PRINTER PROMPT PREVIEW WINDOW (.Name)
.Release()
ENDWITH

en donde fenvio es un dato tipo fecha y estos son los datos que contiene
01/05/04
09/06/04
15/02/05

Alberto Chafio. H.
Bach. Ingenieria de Sistemas e Informática
Cel. (065) 9772119


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

1) Entonces como puedo hacer para que salga un mensaje diciendo que no
existe ningun registro.

Otra cosa eso funciona muy bien para visualizar, pero si quiero que salga
directamente a impresión, que debo cambia.

Alberto Chafio. H.
Bach. Ingenieria de Sistemas e Informática
Cel. (065) 9772119


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Pues antes de enviar a imprimir, cerciórate de que la tabla tenga algún
registro, usa el comando RECCOUNT(), acá te coloco un script de ejemplo:

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer
IF RECCOUNT()=0
WAIT WINDOW 'No existen registros para mostrar esta opción.'
ELSE
REPORT FORM ...
ENDIF

Con respeto a imprimir directo sin vista previa, pues no uses el script de
crear la ventana de vista previa, sino que directamente con el REPORT FORM
... TO PRINTER.

Léete la ayuda del VFP para ambos comandos.

Saludos cordiales,

T.S.U. Edhin Jiménez
Coordinador Estatal Zulia
PortalFox Venezuela
Maracaibo, Venezuela

"Alberto Chafio Herrera" escribió en el mensaje
news:%

1) Entonces como puedo hacer para que salga un mensaje diciendo que no
existe ningun registro.

Otra cosa eso funciona muy bien para visualizar, pero si quiero que salga
directamente a impresión, que debo cambia.

Alberto Chafio. H.
Bach. Ingenieria de Sistemas e Informática
Cel. (065) 9772119


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway