Imprimir en varias hojas

[gabyzava]

bueno me falto poner las declaraciones, entonces quedaria asi, para que este completo y mas entendible:

Código PHP:

PROCEDURE IMPRIME;
var   
   Word1: OleVariant;
    Bitmap : TBitMap;
    AData,APalette : THandle;
    BmpFormat : Word;
    BmpData: Cardinal;
    BmpPalette : HPalette;
 
begin 
   s:=ruta+'TEXTO.RTF';    //asignamos el archivo
   Word1 := CreateOleObject('Word.Application');
   Word1.Documents.Add(s);
 
   //seleccionamos el grafico
   Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(rutA+'ima.bmp');
  Bitmap.SaveToClipBoardFormat(BmpFormat, BmpData, BmpPalette);
  ClipBoard.SetAsHandle(BmpFormat, BmpData);
  //lo pegamos
  Word1.ActiveWindow.Selection.Paste;

  Word1.ActiveDocument.Saveas(RUTA+'reda\FINAL.doc');
  //mandamos a imprimir
  Word1.printout(false);
   Word1.Quit;
   Word1:= UnAssigned;  
end; 


bye