Foros Club Delphi - Imprimir en varias hojas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Imprimir en varias hojas (https://www.clubdelphi.com/foros/showthread.php?t=47043)

gabyzava

16-08-2007 19:41:09

Imprimir en varias hojas

: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

16-08-2007 21:12:32

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

no he trabajado con un QReport grande...

gabyzava

17-08-2007 17:12:27

imprimir en varias hojas

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

17-08-2007 18:50:27

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

Cita:

El texto puede ser muy largo y ocupar varias hojas

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

gabyzava

18-08-2007 20:22:45

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(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

18-08-2007 20:30:34

imprimir

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

La franja horaria es GMT +2. Ahora son las 01:08:30.