6 replies to this topic

[cannabis]

Hola, foronautas.
 
Estoy tratanto de imprimir directamente a PDFCreator sin intervención del usuario.

delphi

var
  PdfCreator: OleVariant;
 
begin
  ...
  ...
 
  PdfCreator := CreateOLEOBject('PDFCreator.clsPDFCreator'); //<--- Línea que provoca el error.
 
  ...
  ...
end;
 

 
Mensaje de error: Project abc.exe raised exception class EOleSysError with message "Cadena clase no válida" 
 
 
Cualquier ayuda será bienvenida.
 
 
 
Hasta pronto.

[giulichajari]

has incluido la libreria comObj? en los uses?

[cannabis]

Así es, giulichajari, está incluida.

[virtualmx]

Hola colegas,
 
Yo lo he implementado con partes como las siguientes:
 

delphi

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Menus, StdCtrls, Buttons, ComCtrls, Grids, DBGrids,
  ExtCtrls, Printers, WordXP, XPMan, OleServer, ComObj, ActiveX....
  private
    { Private declarations }
    PDFCreator: OleVariant;
  public
    { Public declarations }
  end;
 
var
 
procedure...
begin
.
  CoInitialize(nil);
  try
    PDFCreator := CreateOLEObject('PDFCreator.clsPDFCreator');
    PDFCreator.cStart('/NoProcessingAtStartup');
    PDFCreator.cOption('UseAutosave') := 1;
    PDFCreator.cOption('UseAutosaveDirectory') := 1;
    PDFCreator.cOption('AutosaveDirectory') := ExtractFilePath(output_filename);
    PDFCreator.cOption('AutosaveFilename') := ExtractFileName(output_filename);
    PDFCreator.cOption('AutosaveFormat') := 0; // PDF format
    PDFCreator.cOption('PDFColorsColorModel') := 0; // RGB format
    if Trim(owner_password) <> '' then
    begin
      PDFCreator.cOption('PDFUseSecurity') := 1;
      PDFCreator.cOption('PDFHighEncryption') := 1;
      PDFCreator.cOption('PDFOwnerPass') := 1;
      PDFCreator.cOption('PDFOwnerPasswordString') := owner_password;
      PDFCreator.cOption('PDFDisallowCopy') := 1;
      PDFCreator.cOption('PDFDisallowModifyAnnotations') := 1;
      PDFCreator.cOption('PDFDisallowModifyContents') := 1;
      PDFCreator.cOption('PDFDisallowPrinting') := 0;
      PDFCreator.cOption('PDFAllowAssembly') := 0;
      PDFCreator.cOption('PDFAllowDegradedPrinting') := 0;
      PDFCreator.cOption('PDFAllowFillIn') := 0;
      PDFCreator.cOption('PDFAllowScreenReaders') := 0;
    end;
    PDFCreator.cSaveOptions;
    PDFCreator.cClose;
    VarClear(PDFCreator);
  except
    PDFCreator.cClose;
    VarClear(PDFCreator);
  end;
  CoUnInitialize;
.
end;

 
  Espero algo de esto pueda ayudar.
 
  Saludos.

[escafandra]

Una solución simple es cambiar la impresora por defecto, imprimir y restaurar la impresora por defecto:
 

delphi

var
  Default, n: integer;
begin
  Default:= Printer.PrinterIndex;  // guardamos la impresora por defecto.
  n:= Printer.Printers.IndexOf('PDFCreator');  // buscamos PDFCreator
  if n>0 then Printer.PrinterIndex:= n  // La asignamos como impresora por defecto
  else exit;  // No tenemos esa impresora instalada...
  //......
  // Imprimimos
  //.....
  // Restauramos la impresora por defecto.
  Printer.PrinterIndex:= Default;
end;

Saludos.

[cannabis]

Hola.

 

He resuelto el problema usando QuickReport y la exportación a PDF. Gracias por sus comentarios.

 

 

 

Hasta pronto.

[ShirleyCC]

Hola.

 

A partir de la versión PDFCreator 1.7.3 falla la clase PDFCreator.clsPDFCreator, por ello el fallo en la línea.

 

PDFCreator := CreateOLEObject('PDFCreator.clsPDFCreator');

 

Aquí tenéis el acceso a esta versión más antigua: https://docs.google....ew?pref=2&pli=1