Crear Pdf con pulsar un botón

[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

[Cabanyaler]

Gracias Román. No me quito el sombrero porque no llebo.
Simple, sencillo, eficaz y eficiente.
Al final lo hemos conseguido, tal como lo deseamos.
No tengo ni que poner una sóla coma a tu código. Sólo faltaría "almibararlo".
Después de estar varios días lidiando con el código, probando cosas "a palos de ciego", visitar mil webs con casi siempre el mismo ejemplo Cute/Paste, preguntar en este foro, atender a todos los que me habéis ayudado, al final lo hemos conseguido. He de confesar que pensé en dejarlo.
Gracias sobre todo a Román, ElKurgan, Eldioni, Caral y a todos aquellos que habéis podido aportar para solucionar este tema, que entre otras cosas aún no estaba expuesto en este inestimable foro de ayuda y compartición del conocimiento, ni tampoco en la página de Trucomania.
Hasta la próxima, que seguro será otro reto quizá más complicado e inóspito.
Lo que echo de menos es un lugar donde encontrar documentación sobre los métodos del OleObject creado con nombre PDFCreator.

Cerramos hilo.