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
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);
. . . .
. . . .
RestorePDFOptions; VarClear(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; PDFCreator.cOption('PDFColorsColorModel') := 0; 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.