Crear Pdf con pulsar un botón

[Cabanyaler]

Uff, bueno estoy con esto y no me crea los pdf en el directorio que deseo.
Creo que el fallo estriba en mi desconocimiento alrededor de los comando del OLEObjeto creado para el PDFCreator.

¿Me podrías, quien controle, revisar a ver si me olvido de algo?.
Gracias.

Código Delphi [-]
procedure TFPrincipal.BitBtnPDFClick(Sender: TObject);
var
    Index: Integer;
    NombreImpresora   : string;
    NombrePDF : string;
begin
    // Pille l'impresora
    NombreImpresora   :=  'PDFCreator';
    Index := Printer.Printers.IndexOf(NombreImpresora);
    Printer.PrinterIndex := Index;
    //

    NombrePDF       := 'L:\JOSE\temp\'+ Cod_Cen_w + '_' + EditNumPedido.Text + '.pdf';
    PDFCreator := CreateOLEOBject('PDFCreator.clsPDFCreator');
    PDFCreator.cStart('/NoProcessingAtStartup');               
    StorePDFOptions();                                         
    SetPDFOptions(NombrePDF);            

    // ****
    // Imprimeix del QuickReport, obvio esta parte del código referente sólo al QuickReport
    . . . . 
    . . . . 
    // ****        
   
    RestorePDFOptions;                     // Restableisc els anteriors valors per a les opcions
    VarClear(PDFCreator);                  // Netetje la memoria del objecte PDFCreator
end;


procedure TFPrincipal.SetPDFOptions(const filename: String);
begin
   PDFCreator.cOption('UseAutosave')          := 1;
   PDFCreator.cOption('UseAutosaveDirectory') := 1;
   PDFCreator.cOption('AutosaveDirectory')    := ExtractFilePath(filename);
   PDFCreator.cOption('AutosaveFilename')     := ExtractFileName(filename);
   PDFCreator.cOption('AutosaveFormat')       := 0; // PDF format
   PDFCreator.cOption('PDFColorsColorModel')  := 0; // RGB format
   PDFCreator.cSaveOptions;
end;


procedure TFPrincipal.StorePDFOptions;
begin
   optUseAutosave :=                     PDFCreator.cOption['UseAutosave'];
   optUseAutosaveDirectory :=            PDFCreator.cOption['UseAutosaveDirectory'];
   optAutosaveDirectory :=               PDFCreator.cOption['AutosaveDirectory'];
   optAutosaveFilename :=                PDFCreator.cOption['AutosaveFilename'];
   optAutosaveFormat :=                  PDFCreator.cOption['AutosaveFormat'];
   optPDFColorsColorModel :=             PDFCreator.cOption['PDFColorsColorModel'];
end;


procedure TFPrincipal.RestorePDFOptions;
begin
   PDFCreator.cOption('UseAutosave')            := optUseAutosave;
   PDFCreator.cOption('UseAutosaveDirectory')   := optUseAutosaveDirectory;
   PDFCreator.cOption('AutosaveDirectory')      := optAutosaveDirectory;
   PDFCreator.cOption('AutosaveFilename')       := optAutosaveFilename;
   PDFCreator.cOption('AutosaveFormat')         := optAutosaveFormat;
   PDFCreator.cOption('PDFColorsColorModel')    := optPDFColorsColorModel;
   PDFCreator.cSaveOptions;
end;

Gracias.

[Cabanyaler]

Estoy encontrando código, aunque en VB, que trata este mismo tema y veo que intercalan líneas de código en algunos puntos que hacen sleep al sistema.
¿Será que debo esperar un determinado tiempo antes de hacer algo y después de hacer algún paso?.
Por ejemplo encuentro que después de limpiar caches, capturar impresora,.....
Lo he probado, pero aún así no me imprime, ni crea pdf alguno.
Si me funciona si establezco los controles desde las opciones de menú del PDFCreator (aunque no le puedo dar el nombre de fichero deseado, ya que me pone la fecha como nombre con un formato de yyyymmddhhmmss.pdf), pero establecerlas desde código, sigo igual de atascado.

[roman]

A mi tu código me funciona bien si quito la línea:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

que, según la documentación, lo que hace es precisamente impedir que se procesen los documentos:

No processing at startup: When you use this setting, PDFCreator will start without processing any documents. You can manually start processing by going to the Document menu and selecting Print or by unchecking the Printer Stop option in the Printer menu. The setting is useful if you want collect some files first, then combine the files into one and create a pdf.

En caso de que esa línea esté presente, entonces puedes iniciar la impresión con

Código Delphi [-]
PdfCreator.cPrinterStop := false;

// Saludos

[Cabanyaler]

Empezado por roman

A mi tu código me funciona bien si quito la línea:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

que, según la documentación, lo que hace es precisamente impedir que se procesen los documentos:



En caso de que esa línea esté presente, entonces puedes iniciar la impresión con

Código Delphi [-]
PdfCreator.cPrinterStop := false;

// Saludos

Ufff, hola he estado de viaje todo el día, pero mañana es lo primero que hago al llegar al despacho. A ver si va a ser eso de no acabar de entender el inglés del todo.....
Gracias Roman.

[Cabanyaler]

Desgraciadamente no lo había entendido mal.
Lo que proporciona la ejecución de la instrucción:

Código Delphi [-]
PDFCreator.cStart('/NoProcessingAtStartup');

es la NO ejecución del PDFCreator mostrando la ventana para la introducción de datos del propio programa, lo cual es lo que intentamos evitar.
Intentamos o intento precisamente hacer esa configuración desde código sin mostrar ventana alguna.
Aún así gracias Roman.

[roman]

A mi la ventana me aparece de todas formas, pero el caso es que yo he podido imprimir tal como tú quieres, es decir, generando el archivo sin intervención del usuario, con tu mismo código, omitiendo la línea en cuestión.

// Saludos

[Cabanyaler]

Trabajo con Delphi 6, y el S.O: Windows 7 Profesional de 32 bits.
¿Te importaría enviarme el código completo de tu prueba?.
No consigo hacerlo funcionar.
ES para comprobar carga de las uses, etc y ver si me faltase alguna respecto de tí, aunque no me de error de compilación, quizá no funcione el OLEObject que se crea, porque viendo la cola de impresión del PDFCreator, no se ve aparecer tampoco en ningún momento trabajo alguno.

[roman]

Hola,

Observando con más detalle, veo que me he equivocado. Veamos, no hay que quitar la línea que comento sino sólo su parámetro. Si no se llama al método cStart, el PdfCreator no hace nada de nada.

Aquí un ejemplo de código que me ha funcionado:

Código Delphi [-]
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.clsPDFCreator');
    try
      PdfCreator.cStart();
      PdfCreator.cOption('UseAutosave') := 1;
      PdfCreator.cOption('UseAutosaveDirectory') := 1;
      PdfCreator.cOption('AutosaveDirectory') := 'c:\ruta\al\archivo';
      PdfCreator.cOption('AutosaveFilename') := 'test'; // la extensión es opcional
      PdfCreator.cOption('AutosaveFormat') := 0; // PDF format

      Self.Print; // A modo de ejemplo, imprimimos el formulario
    finally
      Printer.PrinterIndex := OldPrinterIndex;

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

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

Observa que no es necesario guardar las opciones anteriores y restablecerlas después ya que no uso el método cSaveOptions.

// Saludos