Ver Mensaje Individual
  #8  
Antiguo 15-07-2021
Avatar de PabloTech
PabloTech PabloTech is offline
Miembro
 
Registrado: ene 2007
Ubicación: Tucumán, Argentina
Posts: 82
Reputación: 18
PabloTech Va por buen camino
Thumbs up Exportar a PDF

Cita:
Empezado por MartinS Ver Mensaje
Hola:

Yo hago lo siguiente: suponiendo que tu Tquickrep se llame conjunto cuando quieres tener una vista preliminar haces

Código Delphi [-]
Conjunto.Preview;

Para imprimir directamente haces

Código Delphi [-]
Conjunto.Print;

y para lo que tu consulta debes hacer:

Código Delphi [-]
Unit QRPDFFilt;
        ...
      
        Procedure TPGenInfoInstit.EmitirInforme
        Begin
        SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
                                ConsInt.FieldByName('Nombres').AsString+'.pdf';
        SaveDialog1.Execute();
        Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') ); 
        end;

Saludos
Anduvo Perfecto... Gracias
__________________
Cita:
Cuando respetes al ilustrado y al ignorante, al rico y al pobre, al bello y al feo, estarás muy cerca de la sabiduría, que trasciende lo aparente.

E. Rharo
Responder Con Cita