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'); try
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; PrepararTCKPDF(Sender);
qrTicket.Print;
finally
Printer.PrinterIndex := OldPrinterIndex;
while not FileExists('c:\Lavanderia\TCK_CORREO\TCK_PRUEBA.pdf') do
Application.ProcessMessages;
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.