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
