5 respuestas en este tema

[lsedr]

Necesito un componente de quickreport 3.5 que pueda imprimir el valor de un registro activo de 160 a 250 caracteres

existe ese componente ?, pues no lo quiero hacer con un QRDBText

[felipe]

Necesito un componente de quickreport 3.5 que pueda imprimir el valor de un registro activo de 160 a 250 caracteres

existe ese componente ?, pues no lo quiero hacer con un QRDBText

QRDBMemo


Saludos!

[lsedr]

Necesito un componente de quickreport 3.5 que pueda imprimir el valor de un registro activo de 160 a 250 caracteres

existe ese componente ?, pues no lo quiero hacer con un QRDBText

QRDBMemo
Saludos!

Solo veo el QRMemo y no tiene Dataset ni DataField como los QRDBText para conectarlo al campo que quiero...

[enecumene]

Necesito un componente de quickreport 3.5 que pueda imprimir el valor de un registro activo de 160 a 250 caracteres

existe ese componente ?, pues no lo quiero hacer con un QRDBText

QRDBMemo
Saludos!

Solo veo el QRMemo y no tiene Dataset ni DataField como los QRDBText para conectarlo al campo que quiero...

Pues si traes el contenido a través de una consulta, es tan sencillo como hacer esto:

delphi

QRMemo.Lines.Add(ADOQuery1.Field[0].AsString);

Saludos.

[lsedr]

El QRMemo y el QRDBText se salen del margen de impresión, pues el contenido es como de 250 caracteres y se sale de la pantalla.

como puedo resolver esto ?

[cadetill]

Buenas,

Para los casos de que tengo que imprimir un campo "memo" lo que hago es lo siguiente. Pongo un TQRRichText con ancho fijo y luego en el BeforePrint de la banda hago esto:

delphi

procedure TUnFormulario.MiBandaBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  MiRichText.Lines.Text := DataSet.FieldByName('descripcion').AsString;
  MiRichText.Height := 3 + (MiRichText.Lines.Count * 14);
  MiBanda.Height := 17 + (MiRichText.Lines.Count * 14);
end;

Los valores por los que multiplicar dependerán del tipo y tamaño de letra usado

Espero te sirva

Nos leemos