Pook
10-04-2006, 10:53:50
Buenas, tengo un pequeño problema, necesito imprimir un documento PDF sin abrirlo, e importé el viernes el control activex de adobe que permite manejar documentos pdf, y todo funcionó de maravilla...
Pero hoy, al llegar al curro lo he probado y al darle a imprimir no hace nada, no carga el documento, no lo imprime... nada... y no se porque, he seguido la traza del programa y lo realiza todo, no salta ningún error ni nada... no entiendo porqué el viernes si y hoy no...
Os pongo el código con el que realizo la función, a ver si alguien me arroja algo de luz al caso...
procedure TPrint.Pdf(Filename: string);
var
pdfdoc: TPdf;
Nombre : OleVariant;
begin
Nombre := Filename;
pdfdoc := TPdf.create(self);
pdfdoc.src := Nombre;
pdfdoc.printAll;
end;
Muchas gracias de antemano.
Pero hoy, al llegar al curro lo he probado y al darle a imprimir no hace nada, no carga el documento, no lo imprime... nada... y no se porque, he seguido la traza del programa y lo realiza todo, no salta ningún error ni nada... no entiendo porqué el viernes si y hoy no...
Os pongo el código con el que realizo la función, a ver si alguien me arroja algo de luz al caso...
procedure TPrint.Pdf(Filename: string);
var
pdfdoc: TPdf;
Nombre : OleVariant;
begin
Nombre := Filename;
pdfdoc := TPdf.create(self);
pdfdoc.src := Nombre;
pdfdoc.printAll;
end;
Muchas gracias de antemano.