Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Exclamation no permitir print en qreport

amigos como puedo hacer para que en un momento dado cumpliendose una condicion, solo se pueda visualizar un reporte pero se deshabilite la opcion de print del mismo, en qreport?
si se podra hacer eso?

Responder Con Cita
  #2  
Antiguo 26-01-2010
Avatar de jcarteagaf
[jcarteagaf] jcarteagaf is offline
Miembro Premium
 
Registrado: abr 2006
Ubicación: La Paz, Bolivia
Posts: 651
Poder: 19
jcarteagaf Va por buen camino
Si es posible, pero para hacerlo deberas crear una vista previa personalizada. En este link tienes un demo de como hacerlo. Es cuestion de habilitar/deshabilitar los botones de la barra de herramientas del formulario.

Espero te sirva. Saludos
Responder Con Cita
  #3  
Antiguo 26-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Talking esta bueno

esta bueno, pero me gustaria saber si se puede hacer usando el preview normal de todos modos gracias, porque con esto puedo trabajar
Responder Con Cita
  #4  
Antiguo 26-01-2010
Avatar de jcarteagaf
[jcarteagaf] jcarteagaf is offline
Miembro Premium
 
Registrado: abr 2006
Ubicación: La Paz, Bolivia
Posts: 651
Poder: 19
jcarteagaf Va por buen camino
Lastimosamente en la vista previa no tienes control sobre las opciones, el único metodo que te queda es crearte tu propia Vista Previa.

Si necesitas mas ayuda no dudes en avisar.

Saludos.
Responder Con Cita
  #5  
Antiguo 26-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Talking muchas gracias

muchas gracias, voy a trabajar en eso
Responder Con Cita
  #6  
Antiguo 27-01-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 17
rgstuamigo Va por buen camino
Arrow

Yo tambien era uno de los que creía que no se podia Deshabilitar esos botones amenos que ,como dice jcarteagaf personalizemos la vista previa, pero esta tarde(viendo tu problema ) me he tomado la molestia de investigar mas a fondo el asunto y haciendo una tras otra prueba He conseguido deshabilitar cualquier boton de la vista previa....
El truco esta en que QuickReport Utiliza Internamente un formulario prediseñado con todos los TToolButton que estan dentro de un TToolBar y todas las demas cosas...; bueno dicho formulario tiene como nombre de Clase TQRStandardPreview (Incluso puedo ver dicho formulario en tiempo de diseño con F12 ), ahora el problema era: ¿Cómo poder acceder a dicho formulario y de ahi poder accesar al boton(ToolButton) en cuestion para poder deshabilitarlo(enable=true)?.
Revisando un poco de codigo por aqui y por allá pues lo he logrado haciendo lo siguiente:
Código Delphi [-]
Uses QRPrev,...;
...
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).Print.Enabled:=False; //dehabilito el boton de imprimir
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).SaveReport.Enabled:=False;//dehabilito el boton de guardar 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).LoadReport.Enabled:=False;//dehabilito el boton de abrir 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).CancelButton.Enabled:=False;//dehabilito el boton de cancelar 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).FindButton.Enabled:=False;//dehabilito el boton de Busqueda
 ...
 ... //INCLUSO PUEDO HACER LA SIMULACION DE PULSACION DE CUALQUIER BOTON.. //POR EJEMPLO 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).CancelButton.Click;// ...
OJO en el unico lugar que se puede acceder a dichos botones (segun mis pruebas) es en el evento AfterPreview del componente QuickRep.. sino se podria tener una Excepcion.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 27-01-2010 a las 00:26:48.
Responder Con Cita
  #7  
Antiguo 27-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Question me da un error de compilacion con PreviewControl

muchas gracias por tu ayuda. aunque.

lo hago tal como me dices y en el evento que me dices pero al compilar me da error [Error] QrepCalc.pas(127): Undeclared identifier: 'PreviewControl' a que se debera,
Responder Con Cita
  #8  
Antiguo 27-01-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por perico Ver Mensaje
muchas gracias por tu ayuda. aunque.

lo hago tal como me dices y en el evento que me dices pero al compilar me da error [Error] QrepCalc.pas(127): Undeclared identifier: 'PreviewControl' a que se debera,
Talves tienes una version de QuickReport menor que la que uso yo....
Bueno haber.. intentalo asi:
Código Delphi [-]
TQRStandardPreview(QuickRep1.QRPrinter.Client.Parent).Print.Enabled:=False;
No te olvides de poner la unidad QRPrev en el Uses y poner el anterior codigo en el evento AfterPreview de tu QuickRep.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #9  
Antiguo 27-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Smile deja el error pero no hace lo que se necesita

bueno dejo el error pero igual no deshabilita el boton print, que podra ser ????

bueno yo uso delphi 7 y estoy usando el qreport que trae esta version de delphi

Última edición por perico fecha: 27-01-2010 a las 02:48:56.
Responder Con Cita
  #10  
Antiguo 27-01-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por perico Ver Mensaje
bueno dejo el error pero igual no deshabilita el boton print, que podra ser ????

bueno yo uso delphi 7 y estoy usando el qreport que trae esta version de delphi
Por alguna Razon extraña en la version 3.0.9 que viene en el propio delphi 7 (segun mis pruebas) de alguna forma internamente hay codigo que nuevamente hace habilitar los Botones(ToolButton) al momento de visualizar el reporte.Entonces la única solucion que veo es recurrir a la propiedad Visible de los ToolButton y hacer que éstos no sean visible al previsualizar el reporte.
Segun mis pruebas la version 3.0.9 no trabaja de igual forma que la version que tengo que es la 5.02. Ya que segun he observado ,algunos eventos se disparan en una forma diferente entre ambas versiones, y he ahí..que por eso que no te funciona igual como me funciona a mi....
Bueno..como te decia antes, simplemente has que dichos botones no sean visible;haaah... y ahora en ves de usar el evento AfterPreview, mejor utiliza el evento BeforePrint de tu componente QuickRep (eso es por la version que tienes), quedando tu codigo mas o menos asi:
Código Delphi [-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 TQRStandardPreview(QuickRep1.QRPrinter.Client.Parent).Print.Visible:=False;
 TQRStandardPreview(QuickRep1.QRPrinter.Client.Parent).PrintSetup.Visible:=False;
{En todo caso lo lógico es no hacer visible tanto el boton para selecionar 
impresora (PrintSetup) como tambien el Boton de Imprimir (Print)  }
end;
Nota: Probado en Delphi 7 y Quick Report 3.0.9
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #11  
Antiguo 27-01-2010
perico perico is offline
Miembro
 
Registrado: nov 2003
Posts: 69
Poder: 21
perico Va por buen camino
Talking si ya esta listo

muchas gracias es lo que necesitaba, disculpa la molestia
Responder Con Cita
  #12  
Antiguo 21-09-2014
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Cita:
Empezado por rgstuamigo Ver Mensaje
Yo tambien era uno de los que creía que no se podia Deshabilitar esos botones amenos que ,como dice jcarteagaf personalizemos la vista previa, pero esta tarde(viendo tu problema ) me he tomado la molestia de investigar mas a fondo el asunto y haciendo una tras otra prueba He conseguido deshabilitar cualquier boton de la vista previa....
El truco esta en que QuickReport Utiliza Internamente un formulario prediseñado con todos los TToolButton que estan dentro de un TToolBar y todas las demas cosas...; bueno dicho formulario tiene como nombre de Clase TQRStandardPreview (Incluso puedo ver dicho formulario en tiempo de diseño con F12 ), ahora el problema era: ¿Cómo poder acceder a dicho formulario y de ahi poder accesar al boton(ToolButton) en cuestion para poder deshabilitarlo(enable=true)?.
Revisando un poco de codigo por aqui y por allá pues lo he logrado haciendo lo siguiente:
Código Delphi [-]
Uses QRPrev,...;
...
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).Print.Enabled:=False; //dehabilito el boton de imprimir
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).SaveReport.Enabled:=False;//dehabilito el boton de guardar 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).LoadReport.Enabled:=False;//dehabilito el boton de abrir 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).CancelButton.Enabled:=False;//dehabilito el boton de cancelar 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).FindButton.Enabled:=False;//dehabilito el boton de Busqueda
 ...
 ... //INCLUSO PUEDO HACER LA SIMULACION DE PULSACION DE CUALQUIER BOTON.. //POR EJEMPLO 
TQRStandardPreview(QuickRep1.QRPrinter.PreviewControl).CancelButton.Click;// ...
OJO en el unico lugar que se puede acceder a dichos botones (segun mis pruebas) es en el evento AfterPreview del componente QuickRep.. sino se podria tener una Excepcion.
Saludos...
Revisando un poco este asunto del Preview, me encuentro con este hilo. Realmente muy bueno lo que has puesto.
Ahora bien, ¿cómo hago para que ejecutar algo en un evento? El botón "print" de la visualización previa debería tenerlo. Yo necesito hacer algo adicional cuando se presiona el botón "print" de la preview. ¿Cómo se podrá hacer?

Gracias.

Santiago.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
  #13  
Antiguo 21-09-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Santiago.

En las QuickReport FAQS, revisa el demo llamado CustomPreview.zip.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Cookies, ¿permitir, no permitir? Extensiones del navegador, ¿todas, ninguna, alguna? ixMike Seguridad 2 14-11-2009 00:49:06
Print Preview StartKill Impresión 9 06-02-2008 01:38:55
QRGroup.Print jollosa Impresión 0 10-07-2007 14:24:36
Jv Print Preview ?! MaMu Impresión 0 29-04-2007 15:40:57
print.exe win98 m@r Varios 0 21-01-2005 19:09:30


La franja horaria es GMT +2. Ahora son las 01:58:00.


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