Ver Mensaje Individual
  #5  
Antiguo 18-08-2007
gabyzava gabyzava is offline
Miembro
 
Registrado: oct 2006
Posts: 34
Reputación: 0
gabyzava Va por buen camino
imprimir en varias hojas

hola a todos

Les doy las gracias por sus respuestas y comentarios todo me ha servido

El codigo quedo como sigue, por si alguien tiene el mismo problema:


Voy a unir una imagen con el contenido de un archivo y mandar a imprimir:

Código PHP:
//---abrir archivo----//
 
   
s:=ruta+'a6.RTF';    //asignamos el archivo
   
Word1 := CreateOleObject('Word.Application');
   
Word1.Documents.Add(s);
 
   
//seleccionamos el grafico
   
Bitmap := TBitmap.Create;
  
Bitmap.LoadFromFile(WRITEPATH+'ima.bmp');
  
Bitmap.SaveToClipBoardFormat(BmpFormatBmpDataBmpPalette);
  
ClipBoard.SetAsHandle(BmpFormatBmpData);
  
//lo pegamos
  
Word1.ActiveWindow.Selection.Paste;

  
Word1.ActiveDocument.Saveas(WRITEPATH+'reda\aaaaa.doc');
  
//mandamos a imprimir
  
Word1.printout(false);
   
Word1.Quit;
   
Word1:= UnAssigned
Gracias por todo
Responder Con Cita