Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-11-2007
Avatar de HW-AND-SW
HW-AND-SW HW-AND-SW is offline
Miembro
 
Registrado: oct 2007
Ubicación: CD. VALLES, SLP
Posts: 12
Poder: 0
HW-AND-SW Va por buen camino
Smile Ejemplo de QuickReport

Hola a todos primero que nada un gran saludo a todos por que gracias a sus aportaciones estoy aprendiendo mucho.
Bueno ahora la duda que tengo.
No se utilizar el QuickReport , lo que en realidad quiero hacer es imprimir una credencial,donde en la form1 busco los datos a imprimir que son la foto, el nombre, direccion,nombre de los padres , telefono y la fecha de vigencia y losmando a la form2 donde tengo el QuickReport1 dentro de el fueron arrojados todos los datos que busco del alumno y que mencione anteriormente, el problema es que como les digo no se imprimir o mejor dicho no se que codigo poner, yo estoy viendo que segun debo poner una sentencia precida a esta "QuickReport1.print" y lo hago en un bitbtn en su evento onclick que esta dentro de la form2 no se si es eso recomendable pero asi lo estoy haceindo y no me manda a imprimir.
Espero alguien me pueda ayudar con un ejemplo o explicando como debo poner los componentes.
De antemano muchas gracias a todos por tener este club.
jejeje
Responder Con Cita
  #2  
Antiguo 14-11-2007
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Poder: 24
BlueSteel Va por buen camino
Hola HW-AND-SW

te recomiendo que busques en el Foro como realizar un informe con QReport... no es muy dificil

el informe del QReport lo puedes llamar así

Formulario.Informe.Preview; // esto habre una ventana de visualización
Formulario.Informe.Print; // esto imprime en forma directa


se supone que para imprimir la credencia, tienes un formulario en donde realizas la seleccion del registro (alumno o persona) correspondiente... y esos resultados debes traspasarlos al formulario de QReport

Supongamos que tines :
Formulario : Persona
Datos
Edit1.Text -> Nombre_Persona
Edit2.Text -> Direccion_Persona

Formulario: Credencial
Datos
Informe : QReport (Informe)
QEdit1.Caption := Persona.Edit1.Text;
QEdit2.Caption := Persona.Edit2.Text;

y para imprimir, pones

Credencial.Informe.Print

y eso seria todo.. espero que te sirva...
__________________
BlueSteel
Responder Con Cita
  #3  
Antiguo 14-11-2007
Avatar de HW-AND-SW
HW-AND-SW HW-AND-SW is offline
Miembro
 
Registrado: oct 2007
Ubicación: CD. VALLES, SLP
Posts: 12
Poder: 0
HW-AND-SW Va por buen camino
Smile Gracias por contestar

Algo como lo que tu dices es lo que estoy haciendo.
donde pongo este codigo---------->Credencial.Informe.Print
o sea en que forma en la persona o credencial
y solo tengo que poner el componente QuickReport o necesito algo mas para hacer el previem
Responder Con Cita
  #4  
Antiguo 14-11-2007
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Poder: 24
BlueSteel Va por buen camino
eso lo puedes hacer directamente de Form Persona...(siempre que ahí realices es traslado de datos...)...

Si lo haces desde persona.. pones

Credencia.Informe.Preview;

si lo haces desde Credencial.. pones

Informe.Preview;

acuerdate que antes de realizar un Preview o Print.. debes llenar el informe..
__________________
BlueSteel
Responder Con Cita
  #5  
Antiguo 14-11-2007
Avatar de HW-AND-SW
HW-AND-SW HW-AND-SW is offline
Miembro
 
Registrado: oct 2007
Ubicación: CD. VALLES, SLP
Posts: 12
Poder: 0
HW-AND-SW Va por buen camino
ok

y la palabra "informe" la declaro como variable o que onda
Responder Con Cita
  #6  
Antiguo 14-11-2007
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Poder: 21
salvica Va por buen camino
Cita:
Empezado por HW-AND-SW Ver Mensaje
y la palabra "informe" la declaro como variable o que onda
La palabra "informe" como tú dices, es el objeto QuickReport1 que has puesto en el form2. La toma de datos no dices si lo haces desde una tabla o lo haces "a pelo"

En el primer caso debes asignar el QuickReport1 al dataset de donde tomas los datos y poner en una banda de detalle (DetailBand1) un objeto QRExpr para cada campo de la tabla que vayas a utilizar y que se rellene automáticamente con cada registro de la tabla.

En el segundo caso ("a pelo"), en Form1 debes rellenar las QRLabel que hayas puesto, más o menos tal que así:
Código Delphi [-]
{ procedimiento OnClick del botón que utilices }
procedure Form1.BitBtnOnClick(Sender: TObject);
begin
   with form2 do begin
     { rellenamos las etiquetas del report }
      QRLabel_Nombre.Caption := 'Salvador Urbón Ruigómez';
      QRLabel_Alias := 'salvica';
      QRLabel_Provincia := 'Albacete';
      QRLabel_Pais := 'España';
     { visualizamos el report }
      QuickReport1.Preview;
     { imprimimos el report }
      QuickReport1.Print;
   end;
end;
Esto es un ejemplo "a vuelapluma", por lo que si hay errores no me pegues
Saludetes
salvica
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ejemplo de rup droguerman OOP 3 02-03-2007 18:15:07
Ejemplo de OOP David OOP 5 07-11-2006 15:02:07
ejemplo streams zastilla Internet 1 11-11-2004 11:43:35
Ejemplo de DDe Alexander Varios 0 11-05-2004 20:22:16
Ejemplo de una Transaccion @-Soft Conexión con bases de datos 4 05-08-2003 14:51:44


La franja horaria es GMT +2. Ahora son las 14:44:43.


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