Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Mostrar u Ocultar encabezado del Qreport (https://www.clubdelphi.com/foros/showthread.php?t=50799)

ingabraham 28-11-2007 15:12:46
Mostrar u Ocultar encabezado del Qreport
 
Como hago por codigo que muestre el encabezado en todas las paginas 

Código Delphi [-]
Form29.TitleBand1.BandType :='rbPageHeader' ;
o solo en la primera

Código Delphi [-]
     Form29.TitleBand1.BandType :='rbTitle'

Me aparece error incompatible dato BandType y string.
Quien me ayuda.

droguerman 28-11-2007 15:31:49
y porque le pones las comillas?

ingabraham 28-11-2007 15:35:33
Cita:
Empezado por droguerman (Mensaje 249014)
y porque le pones las comillas?
Si se las quito me aparece:
unideclared identifier rbPageHeader

ingabraham 28-11-2007 23:10:21
Lo mismo pasa aqui
 
Código Delphi [-]
//tipo Hoja
         if thoja.Text='CARTA' THEN
            Form29.QuickRep1.Page.PaperSize:='Letter'
         ELSE
            Form29.QuickRep1.Page.PaperSize:='Legal';//OFICIO

Incompatible type tqrPaperSize and string

Alguien me diga por que ?, q hay q hacer

ingabraham 29-11-2007 00:46:56
He buscas por todos los hilos
 
esto es imposible de hacer,
alguien me diga
he visitado mas de 20 foros aqui

este codigo no esta bien¿
existe muchos problemas para colocar la impresora con el qreport igual, el tamaño de papel¿
alguien digame

Caral 29-11-2007 02:13:48
Hola
Pues me parece muy sencillo, me extraña tanta complicacion.
un QRLabel en el Page Header
y un simple codigo.
Código Delphi [-]
         if thoja.Text='CARTA' THEN
            QuickRep1.QRLabel1.Caption:= 'Letter'
         ELSE
            QuickRep1.QRLabel1.Caption:= 'Legal';//OFICIO
         end;
Mas facil, nada.
Ojala todas las preguntas fueran asi.:D
Saludos

ingabraham 29-11-2007 13:56:38
Cita:
Empezado por Caral (Mensaje 249203)
Hola
Pues me parece muy sencillo, me extraña tanta complicacion.
un QRLabel en el Page Header
y un simple codigo.

Código Delphi [-]
if thoja.Text='CARTA' THEN
QuickRep1.QRLabel1.Caption:= 'Letter'
ELSE
QuickRep1.QRLabel1.Caption:= 'Legal';//OFICIO
end;




Mas facil, nada.
Ojala todas las preguntas fueran asi.:D
Saludos
En realidad esto no es lo q busco, lo que estas haciendo es asignandole un string a un label.
Yo lo que necesito es asignarle a la propiedad PaperSize el Letter
(carta) o legal(oficio)

eduarcol 29-11-2007 14:08:45
agrega al uses la libreria QRPrntr

la asignacion la debes hacer sin las comillas:

if thoja.Text='CARTA' THEN
QuickRep1.QRLabel1.Caption:= Letter
ELSE
QuickRep1.QRLabel1.Caption:= Legal;//OFICIO
end;

ingabraham 29-11-2007 15:17:51
Cita:
Empezado por eduarcol (Mensaje 249244)
agrega al uses la libreria QRPrntr

la asignacion la debes hacer sin las comillas:

if thoja.Text='CARTA' THEN
QuickRep1.QRLabel1.Caption:= Letter
ELSE
QuickRep1.QRLabel1.Caption:= Legal;//OFICIO
end;
No no no me has entendido
es asignarselo a esto:

Código Delphi [-]
//tipo Hoja
         if thoja.Text='CARTA' THEN
            Form29.QuickRep1.Page.PaperSize:='Letter'
         ELSE
            Form29.QuickRep1.Page.PaperSize:='Legal';//OFICIO

eduarcol 29-11-2007 16:20:56
obviamente me equivoque al copiar el codigo pero has la prueba de lo que te digo y veras que si funciona.

ingabraham 29-11-2007 16:27:28
nda
 
ya hice la prueba con uses la libreria QRPrntr
y nda

egostar 29-11-2007 17:07:53
Cita:
Empezado por ingabraham (Mensaje 249239)
En realidad esto no es lo q busco, lo que estas haciendo es asignandole un string a un label.
Yo lo que necesito es asignarle a la propiedad PaperSize el Letter
(carta) o legal(oficio)
Vamos por partes, este hilo comienza con esta pregunta

Cita:
Empezado por ingabraham
Mostrar u Ocultar encabezado del Qreport

Como hago por codigo que muestre el encabezado en todas las paginas
Después mezclas otra pregunta en este mismo hilo (que por cierto ya has puesto en otros hilos)

Cita:
Empezado por ingabraham
He buscas por todos los hilos

esto es imposible de hacer,
alguien me diga
he visitado mas de 20 foros aqui

este codigo no esta bien¿
existe muchos problemas para colocar la impresora con el qreport igual, el tamaño de papel¿
alguien digame
Como pretendes que alguien te conteste bien a dos preguntas diferentes en un mismo hilo.

Salud OS.

ingabraham 29-11-2007 17:24:21
Listo
caso resuelto:

Para quien le sirva el codigo:

Código Delphi [-]
          if thoja.Text='CARTA' THEN
                 Form29.QuickRep1.PrinterSettings.PaperSize:=Letter
           ELSE
                Form29.QuickRep1.PrinterSettings.PaperSize:=Legal;

Y Declaren estas uses QRPrntr
Gracias a todos los q me colaboraron

Caral 29-11-2007 19:49:14
Hola
Cita:
Empezado por ingabraham (Mensaje 249239)
En realidad esto no es lo q busco, lo que estas haciendo es asignandole un string a un label.
Yo lo que necesito es asignarle a la propiedad PaperSize el Letter
(carta) o legal(oficio)
Segun leí en el titulo (Mostrar u Ocultar encabezado del Qreport)
Segun leí en los post (no es lo que busco, no se ha solucionado)
Me parece que el titulo deberia de ser alusivo a lo que se necesita preguntar, para mi fue la respuesta que di.
En la guia lo pone (pregunta nueva, Hilo nuevo).;)
Saludos

ingabraham 29-11-2007 20:16:16
Cita:
Empezado por Caral (Mensaje 249364)
Hola

Segun leí en el titulo (Mostrar u Ocultar encabezado del Qreport)
Segun leí en los post (no es lo que busco, no se ha solucionado)
Me parece que el titulo deberia de ser alusivo a lo que se necesita preguntar, para mi fue la respuesta que di.
En la guia lo pone (pregunta nueva, Hilo nuevo).;)
Saludos
Ok reconosco q fue un error
mezcle dos temas 1. encabezado del qreport y el 2. tamaño papel report
lo hice por q su estructuta y errores eran semejantes y no quise abrir dos hilos, te agradezo mucho por q me ayudastes con la uses q no la tenia.
gracias,


La franja horaria es GMT +2. Ahora son las 06:03:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi