Ver Mensaje Individual
  #1  
Antiguo 04-10-2024
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 646
Reputación: 23
mRoman Va por buen camino
Creacion de archivos PDF

Hola amigos.

Trabajo con: Win10, FB 2.5, D6, QReport 3.6.2, PDFCreator 5.3.1

Nuevamente solicitando su apoyo y orientación en como GENERAR PDF a partir de QuickReport en la version q tengo?

Instalé el PDFCreator y revisé algunos hilos de aqui, sobre todo este:
https://www.clubdelphi.com/foros/showthread.php?t=77859

Pero hay ciertas propiedades que no me las reconoce como "cOption" no sé si sea por la version de mi PDFCreator, es mas nueva. He visto que las versiones viejitas del PDFCreator funcionan bien, pero debe existir documentación de la version q instalé pero todavía no doy con ella.

Que version de PDFCreator tienen instalada uds??

Este es el código que tengo hasta ahorita:

Código Delphi [-]
procedure TfrmImpEnvioTCK.btnEnviarClick(Sender: TObject);
var
  PrinterIndex: Integer;
  OldPrinterIndex: Integer;
  PdfCreator: OleVariant;
begin
      PrinterIndex := Printer.Printers.IndexOf('PdfCreator');
      if PrinterIndex <> -1 then
      begin
        OldPrinterIndex := Printer.PrinterIndex;
        Printer.PrinterIndex := PrinterIndex;

        PdfCreator := CreateOLEObject('PDFCreator.JobQueue'); //aqui tiene otra instruccion clsPDFCreator, que obvio no funciona, marca error y con "JobQueue" no marca error. Consultado en otro foro no pude rescatar el link.
        try
//          PdfCreator.cStart();
          PdfCreator.Initialize;
          PdfCreator.cOption('UseAutosave') := 1;
          PdfCreator.cOption('UseAutosaveDirectory') := 1;
          PdfCreator.cOption('AutosaveDirectory') := 'c:\Lavanderia\TCK_CORREO';
          PdfCreator.cOption('AutosaveFilename') := 'TCK_PRUEBA';
          PdfCreator.cOption('AutosaveFormat') := 0; // PDF format
          PrepararTCKPDF(Sender);
          qrTicket.Print;
        finally
          Printer.PrinterIndex := OldPrinterIndex;

          // método rudimentario para saber cuando terminó de crearse el archivo
          while not FileExists('c:\Lavanderia\TCK_CORREO\TCK_PRUEBA.pdf') do
            Application.ProcessMessages;

          // Cerramos el monitor
          PdfCreator.cClose;
        end;
      end;
end;

El error que me envía:

Código:
EOleError with Message 'Method "cOption" not supported by automation object'...
Si saben de donde puedo bajar otra version PDFCreator que soporte el código que estoy consultando, se los agradeceré bastante. Todo esto es derivado de la necesidad de mi cliente de enviarles el ticket de los servicios contratados, al correo electrónico de sus clientes para ahorrarse papel.

Saludos.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!

Última edición por mRoman fecha: 04-10-2024 a las 17:35:02.
Responder Con Cita