Print PDF files

Sorry guys,

I posted my comments in your other question.
Better delete the other one.

BTW, My comment is more or less the same as macorts suggested, only written in a little procedure.

Anyway, I'm going to post mu procedure here too :


procedure PrintPDF( strPDFName: String );
var
 strApp, strPath, strPar : String;
begin
 if not FileExists( strPDFName ) then
 begin
   MessageDlg('File does not exist : ' + strPDFName, mtError, [mbOK], 0);
 end
 else
 begin
   strApp  := 'C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe';
   strPath := ExtractFileDir(strPDFName);
   strPar  := '/h /p ' + strPDFName;
   ShellExecute(0, PChar('Open'), PChar(strApp), PChar(strPar), PChar(strPath), SW_HIDE     );
 end;
end;



Best regards,
The Mayor.

Thanks a lot but the problem is still there.
When I loop printing all my docs (1.pdf, 2.pdf, ecc.) the results is that the spooler orders them randomly, which means that it will print
3.pdf
2.pdf
4.pdf
1.pdf
5.pdf
...
in an unpredictable order.
Windows recognize automatically the program to be launched whenn you simply execute like this
  if ShellExecute
                (
                    application.Handle,
                    'print',
                    pchar('c:\1.pdf'),
                    nil,
                    '',
                    SW_HIDE
                )   > 32 then .... ok
Acrobat.exe will be launched. My problem is to make docs come out in correct order and to correct printer.
Wishing your answer.
Paolo

try this code:

uses Shellapi;

procedure PrintFile(const Count: integer; const sPath: string);
var
  i: integer;
  buf: array [0..Max_Path] of char;
  sFiles: string;
begin
  if FindExecutable(PChar(sPath+'1'+'.pdf'), PChar(sPath), @buf) < 33 then exit;
  sFiles := '/p /h';
  for i := 1 to Count do
    sFiles := sFiles +' '+ inttostr(i)+'.pdf';
  ShellExecute(0, nil, @buf, PChar(sFiles), PChar(sPath), 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintFile(1, 'c:\');
end;


main idea is to simply pass to acrord32.exe all files in one step.
wbr, mo.

sorry again,
the number of docs to be printed is not known.
I cannot wait the production of all docs before starting printing, because they could be hundreds and it would mean to waste all the producing time (20 mins) instead starting printing one by one.
The only (:-)) I need is to be sure that one by one printing is ordered. I call print for first doc, I would like to see it for first.
Really thanks a lot and.. still waiting
Paolo

hi aaapdm,
At first see this link for how embed adobe acrobat to your application:
http://community.borland.com/article/0,1410,22101,00.html
after it ,I write some coding  as below:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, PdfLib_TLB;
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tformpdf = class(tform)
       private
        procedure pdfdelete(sender:Tobject;var action:tcloseaction);
       public
        constructor Create(aowner:tcomponent);override;
        destructor destroy;
       end;
   var
  Form1: TForm1;
  formpdf1:tformpdf;
  pdf1:tpdf;
implementation
{$R *.DFM}
constructor tformpdf.Create(aowner:tcomponent);
  begin
     inherited createnew(aowner);

         with Self do
            begin
               visible:=true;
               enabled:=true;
               align:=alclient;
               Onclose:=pdfdelete;
            end;(*...with self*)
  end;
 destructor tformpdf.destroy;
    begin
      formPDF1.free;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // This example assumes that you have a TOpenDialog
  // and TPdf dropped onto your form
  formpdf1:=tformpdf.create(application);
  OpenDialog1.Filter := 'PDF Files (*.pdf)|*.pdf';
  if OpenDialog1.Execute then
   begin
    pdf1:=tpdf.create(self);
    pdf1.parent:=formpdf1;
    pdf1.align:=alclient;
    pdf1.src := OpenDialog1.FileName; // you can enter the file location
    pdf1.visible:=true;
    end;
   end;
procedure  tformpdf.pdfdelete(Sender: TObject;var action:tcloseaction);
begin
pdf1.free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.align:=alclient;
button1.bringtofront;
end;
end.
 Simply ,You can change for more than  pdf file , if the pdf file was loaded in pdf form you can print of this file.
May be help you

best  regards
hamid reza

thanks 123456,
I don not need to browse pdf files but print them directly to a specified printer as you can get form the above comments.
By. Paolo

the problem, I think, is in different sizes and complexity of your generated documents - so you must wait until previous document is passed to printer (spooler) and then start to print next document.
you can do this by checking results of WinSpool's EnumJobs function.
place your printing routine in TThread and from main thread put generated pdf in queue (preffered using TThreadList as it is thrad safe). if last doc is in EnumJobs result - delete it from queue and start printing next if exists.
mo.

hy mo,
this is very interesting. Can you give me an example of your idea ? I guess this will be the solution.
thanks a lot.
Paolo

hi aaapdm,
At first embed pdf ocx to your Delphi that say 123456 on his comment.
after it add  PdfLib_TLB to your unit clause.
exam this code may be help you.
procedure TForm1.Button1Click(Sender: TObject);
var pdf1:tpdf;
    s:array[1..4] of string;
    i:integer;
    mysourcefile:string;
 begin
  mysourcefile:='C:\My Documents\';
  s[1]:=mysourcefile+edit1.text+'.pdf';
  s[2]:=mysourcefile+edit2.text+'.pdf';
  s[3]:=mysourcefile+edit3.text+'.pdf';
  s[4]:=mysourcefile+edit4.text+'.pdf';
  for i:=1 to 4 do
     begin
       try
         begin
           pdf1:=tpdf.create(self);
           pdf1.src :=s[i] ;
           pdf1.printall;
         end;
   finally
     pdf1.free;
  end;
  end;
  end;
I don’t  examine these codes on a special printer.
Examine and say me result.

regards
Imbeginner

any feed back from you?

Hi, imbeginner
It seems to work, but also it seems to crash after many docs printing. Shall I try to understand the problem or is it already known ?
Thanks.
Paolo

hi aaapdm,

add this codes may be correct;

for i:=1 to 4 do
    begin
      try
        begin
          pdf1:=tpdf.create(self);
          pdf1.parent:=form1;
          pdf1.visible:=false;
          pdf1.src :=s[i] ;
          pdf1.printall;
          // add delay time
           
       end;
   finally
   pdf1.free;
    end;
    end;
    end;

or

for i:=1 to 4 do
   begin
     try
       begin
         pdf1:=tpdf.create(self);
         pdf1.parent:=form1;
         pdf1.visible:=false;
         pdf1.src :=s[i] ;
         pdf1.printall;
         
      end;
  finally
 // add delay time
  pdf1.free;
   end;
   end;
   end;



regards
m.reza

aaapdm:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations!  No comment means you don't care.