gestion des pdf

gestion des pdf - Delphi/Pascal - Programmation

Marsh Posté le 16-06-2005 à 19:11:25    

bon voila le probleme
 
jai un repertoire avec plusieurs pdf a imprimer
 
dans lappli je lance pour chaque pdf un impression en utilisant l'ActiveX d'acrobat reader

Code :
  1. Pdf1.LoadFile('c:\test.pdf');
  2.    pdf1.print; ...


le probleme est que certains pdf doivent etre imprimes avec une certaine orientation, ou en "double sided" mais apparement le controle activeX ne permet pas de modifier ca
 
- creer un plugin grace au SDK :/ (jai pas reussi a le telecharger sur le site dadobe jai une erreur 403 apres que je me soit loggé  c payant ?)
- pour une imprimante donnée peut on changer lorientation par defaut de telle maniere que lorsque je lance limpression ca soit positioné comme ca ?
 
help  :cry:


Message édité par red faction le 16-06-2005 à 19:14:05
Reply

Marsh Posté le 16-06-2005 à 19:11:25   

Reply

Marsh Posté le 16-06-2005 à 19:13:48    

Code :
  1. var
  2.      Device, Driver, Port: array[0..80] of Char;
  3.      DevMode: THandle;
  4.      pDevmode: PDeviceMode;
  5.    begin
  6.      // Get printer device name etc.
  7.      Printer.GetPrinter(Device, Driver, Port, DevMode);
  8.      // force reload of DEVMODE
  9.      Printer.SetPrinter(Device, Driver, Port, 0) ;
  10.      // get DEVMODE handle
  11.      Printer.GetPrinter(Device, Driver, Port, DevMode);
  12.      If Devmode <> 0 Then Begin
  13.        // lock it to get pointer to DEVMODE record
  14.        pDevMode := GlobalLock( Devmode );
  15.        If pDevmode <> Nil Then
  16.        try
  17.          With pDevmode^ Do Begin
  18.            // modify paper size
  19.            //dmPapersize := DMPAPER_A4;
  20.            // tell printer driver that dmPapersize field contains
  21.            // data it needs to inspect.
  22.            dmFields := pDevMode^.dmFields or DM_ORIENTATION;
  23.            dmOrientation := DMORIENT_LANDSCAPE;
  24.          End;
  25.          Printer.SetPrinter(Device, Driver, Port, DevMode);
  26.       finally
  27.         // unlock devmode handle.
  28.         GlobalUnlock( Devmode );
  29.       end;
  30.      End; { If }
  31.    end;


 
jai trouve ceci aussi mais ca ne fonctionne pa

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed