Mandar a imprimir despues q se muestre el qreport

[[enecumene]]

Bueno entonces intentalo de dos formas:

1. En el Evento OnPreview como te habia mencionado anteriormente.
2. O en el Evento OnClose del form donde esta el QuickReport.

Saludos.

[ingabraham]

Empezado por enecumene

Bueno entonces intentalo de dos formas:

1. En el Evento OnPreview como te habia mencionado anteriormente.
2. O en el Evento OnClose del form donde esta el QuickReport.

Saludos.

bueno el onclose del form, lo coloq y no me manda a imprimir
y el onpreview como hago para q me muestre y a la vez me lo imprima

y disculpa la insistencia

[[enecumene]]

De la misma manera que en el OnClose del form:

Código Delphi [-]
With QuickRep1 do
   Begin
      Print;
  End;

Saludos.

[[egostar]]

Empezado por ingabraham

bueno el onclose del form, lo coloq y no me manda a imprimir
y el onpreview como hago para q me muestre y a la vez me lo imprima

y disculpa la insistencia

Asi a bote pronto, me parece que mas bien es un problema de concepto, QReport tiene propiedades una Print y otra Preview, tu piensas mostrar y luego imprimir, porque no al contrario.

Código Delphi [-]
   Qreport.Print;
   QReport.Preview;

Son tan rapidos los procesos que te manda la impresión y luego te lo muestra y ya no tienes que esperar a cerrar el preview para que se imprima.

Digo, asi lo he soñado.

Salud OS.

[[enecumene]]

Tambien Lo que comenta el Amigo Egostar es muy buena opcion intentalo luego nos comentas.

Saludos.

[ingabraham]

Compañeros mi programa es de Nomina

Código Delphi [-]
procedure TForm29.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 
  if (NHOJAS mod  4=0 )Then
  begin
       Form29.QRGroup1.ForceNewColumn:=True; //NUEVA HOJA -SALTAR
      Form29.QRGroup1.ForceNewpage := True;
  end
   else
     begin
       Form29.QRGroup1.ForceNewColumn:=false; //COLILLAS UNIDAS
       Form29.QRGroup1.ForceNewpage:=false;
      end;
       NHOJAS:=NHOJAS+1;
End;

pero al momento de imprimir, no se me cumple esta condicion, se imprime otra cosa, por eso quiero q se genere el reporte y luego se imprima

[[Caral]]

Hola
Lo normal

Código Delphi [-]
     try
   QRepor:=TQRepor.Create(self);
  QRepor.Preview;
     finally
   QRepor.Free;
      end;

Saludos

[ingabraham]

bUENO
ASI- asi si me funciona

Form29.QuickRep1.Preview;
Form29.QuickRep1.print;
ME SIRVE,
PERO QUIERO Q ME MUESTRE Y ME IMPRIMA,

ESTO LO Q HACE ES MOSTRAR Y CUANDO SALE IMPRIME

[[Caral]]

Hola
No entiendo
Cuando se llama al preview, este permite entre otras cosas, buscar la impresora y por supuesto imprimir.
Si se llama directo a Print, pues se imprime.
No se como hacer que se presente y se imprima, tal vez lo que propuso Egostar seria la forma, no se.
Saludos