Imprimir en varias hojas

[gabyzava]

:confused:Hola

Tengo un Qreport donde solo muestro una imagen y texto.
El texto puede ser muy largo y ocupar varias hojas

¿Como puedo acomodar e imprimir esto?

gracias por su ayuda:o

[BlueSteel]

no te conviene pasar ese texto a un documento de word?...

no he trabajado con un QReport grande...

[gabyzava]

Hola, gracias por responder

Tienes razon seria bueno pasarlos a un doc, la pregunta es ¿como lo hago?

Uso esto pero no se puede:

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;

GRacias por la respuesta

[BlueSteel]

te aconsego que revises la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) para ver el uso de los marcadores o se llaman tag...


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:


//---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:o:p:):rolleyes::D;)

[gabyzava]

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


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:D:D:D:D