Delphi - Desesperada!!!!!!!!!

 
Vista:

Desesperada!!!!!!!!!

Publicado por Patricia (1 intervención) el 21/09/2007 12:51:17
Utilizo delphi 4 y necesito poder imprimir un documento pdf desde delphi. Me explico el documento PDF lo tengo creado lo que necesito es enviarlo a una impresora fisica, pero supongo que tengo que instalar alguna libreria para que reconozca ese formato o algo asi.

He estado buscando por internet pero en vez de ir a mejor esto va al contrario y no se por donde tirar.

Espero que me echeis una mano por pequeña que sea intentaré guiarme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Desesperada!!!!!!!!!

Publicado por luis (14 intervenciones) el 21/09/2007 22:30:30
hola.
encontre este codigo, creo que te puede servir tienes que modificarlo para lo que tu quieres.

Procedure Tform1.PDF2Text(APDFFileName, ATextFileName: TFileName);
var
App,AVDoc:Variant;
Begin
//create an instance. If no running instance is found a new one is started
App:=CreateOleObject('AcroExch.App');
// App.Show; //only If you want to..
AVDoc:=App.GetActiveDoc;//doc handle
AVDoc.Open(APDFFileName,'');//see note below
//select all and copy to clipboard
App.MenuItemExecute('Edit');
App.MenuItemExecute('SelectAll');
App.MenuItemExecute('Edit');
App.MenuItemExecute('Copy');
// Memo1 CAN be set to invisible
// You need this in order to get it from
// the clipboard into a text file
Memo1.PasteFromClipboard;
// Save the text to a file
Memo1.Lines.SaveToFile(ATextFileName);
App.Exit; //unless you want to leave it running.
End;

dentro del uses tienes que agregar el ComObj.
creo que tambien podria funcionar usando el App.printouted(True);
esta funcion es usada para imprimir Word o Excel desde delphi
puedes buscar info por olevariant Automation.
tendrias que probar.
Espero que te sirva y me cuentas como te va.
Suerte.

este es el link http://articles.org.ru/myfaq/27042004d.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar