Ver Mensaje Individual
  #1  
Antiguo 03-05-2008
Avatar de richy08
richy08 richy08 is offline
Miembro
 
Registrado: may 2007
Ubicación: Bucerias, Nayarit Mexico
Posts: 529
Reputación: 17
richy08 Va por buen camino
Imprimir de forma secuencial archivos pdf en delphi

buenos dias compañeros les comento lo que uqiero hacer despues de copiar los archivos de un servidor a una maquina lo que quiero realiar es que cada uno de los archivos se inpriman automaticamente utilizo el siguiente codigo

Código Delphi [-]
Qry_pdf.Close;
  Qry_pdf.ParamByName('nquoteid').Value:=Form2.dbgrid1.Fields[0].Value;
  Qry_pdf.Open;
  i:=0;
  seleccion:=0;
  Seleccion:=Qry_pdf.RecordCount;
  Qry_pdf.First;
  Dir3:='C:\Especificaciones';
   if not DirectoryExists(Dir3) then
    if not CreateDir(Dir3) then
     raise Exception.Create('Cannot create c:\'+Dir3);

  Dir1:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value);

   if not DirectoryExists(Dir1) then
    if not CreateDir(Dir1) then
     raise Exception.Create('Cannot create c:\'+Dir1);
 
  While ido
  begin
   Dir:='';
   Dir:='\\Sitiserver\Users\Especificaciones\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
   Dir2:='';
   Dir2:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value)+'\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
   if NOT CopyFile(pchar(Dir), pchar(Dir2),FALSE) then
     MessageDlg('The File '+Qry_pdf.FieldByName('sitemid').value+'.pdf no Was Copied', mtWarning, [mbOk], 0)
   else
   begin
      AcroPDF1.LoadFile(Dir2);
      AcroPDF1.printAll;
   end;
   i:=i+1;
   Qry_pdf.Next;
  end;

pero al parecer se queda travado y no me inprime nada pero tampoco me sale un error cosa que no sucede cuando lo hago fuera de un ciclo alguna idea de que pueda ser mil gracias.
Responder Con Cita