Imprimir en varias hojas

[[BlueSteel]]

te aconsego que revises la guia de estilo para ver el uso de los marcadores o se llaman tag...

Código Delphi [-]
s:='reda\n.rtf';
Word := CreateOleObject('Word.Application');
Word.Documents.Add(s);//
Word.ActiveDocument.Select;
Word.Selection.Copy;
s:=WRITEPATH+'reda\ima.bmp';-----marca error
Word.Documents.Add(s);
Word.Selection.Paste;
Word.ActiveDocument.SaveAs(WRITEPATH+'reda\newdoc.doc');
Word.Quit;
Word := UnAssigned;

consultas :

Que haces aqui ?

s:='reda\n.rtf'; Quieres traspasar a una variable un archivo rtf.. si es aí la ruta no esta completa...te faltaria la unidad...

lo otro dices

El texto puede ser muy largo y ocupar varias hojas

en donde tienes el texto.. ubieses empezado por ahí...

[gabyzava]

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(BmpFormat, BmpData, BmpPalette);
  ClipBoard.SetAsHandle(BmpFormat, BmpData);
  //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

[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