BUSCAR EN PREGUNTAS Y RESPUESTAS

Se han encontrado 67 coincidencias.

<< >>

Delphi

Pregunta:	16899 - DELPHI5 Y WORD
Autor:	Luis Cañera
Que es lo que tengo que hacer para insertar datos de una tabla de paradox en un documento de Word. Lo mas importante es como puedo decirle que situe cada dato en la posicion que yo quiera, dentro del documento de Word. Es decir, quiero saber como utilizar el Word para generar informes (en sustitucion del QuickReport). Todo esto es sobre Delphi 5.

Respuesta:

Marco Romero

Creo que lo mas fácil sería que crearas el informe con QuickReport, por el tema de la posición de campos que lo puedes controlar en diseño. Luego solo tienes que poner un componente "TQRRTFFilter" en tu informe y llamar al método "ExportToFilter" del QuickReport. Tienes la documentación en la ayuda.

El fichero Word que obtengas (en realidad es un RTF), será clavado al informe que hayas diseñado (Al menos en mi caso así ha sido).

Espero haberte ayudado. Saludos.

Pregunta:	17824 - REPORTS EN EQUIPO COMPAQ
Autor:	Demetrio Gonzalez Gonzalez
Tengo una aplicacion en Delphi5 que usa reports y funciona sin problemas en todos los equipos que he probado salvo en equipos Compaq Pentium III a 700 MHz. Ocurre que cuando paso a la previsualización del QReport aparece el mensaje de error \"Floating point division by zero\", sin embargo no efectua ningún tipo de operación de división, y repito que solo ocurre el error en los equipos indicados. Gracias por adelantado, un saludo.

Respuesta:	Demetrio González González
El problema reside no en el equipo en cuestión, sino que no tiene correctamente configurada una impresora adecuada. En tales casos Delphi devuelve errores extraños con los QReport

Pregunta:	18212 - IMPRIMIR QRLABELS VERTICALES CON QREPORT
Autor:	Héctor Casals
Tengo que sacar por impresora unas plantillas para cintas de video por lo que la carátula se imprimirá normalmente pero en el lateral se tiene de imprimir de forma vertical.

Respuesta:	Luis Felipe García Gutiérrez
No te compliques... simplemente coloca en en el QReport un objeto QRDBText y pasas a true la propiedad WordWap (la última), luego te aseguras que en el campo de la base de datos que contenga un espacio entre cada letra... y listo!

Respuesta:

Luis Fernandez

Ahí te mando un par de rutinas que escriben el texto inclinado. De todas formas no entiendo porque en un QuickReport tienes que imprimir el texto inclinado.Simplemente imprime normal sobre un control y una vez impreso giras el papel que es más sencillo.Es decir no tiene porque estar inclinada a la vista la etiqueta antes de imprimir si la puedes girar una vez impresa.No se si me has entendido.
=============PRIMERA========================
function CreateAngledFont(Fuente: HFont; Angulo: Longint;
Calidad: byte): HFont;
var
FontInfo: TLogFontA; // Estructura de información de la fuente
begin
// Obtener la información de la fuente pasada como parámetro
if GetObject(Fuente, SizeOf(FontInfo), @FontInfo) = 0 then begin
Result := 0;
exit;
end;
// Establecer el ángulo
FontInfo.lfEscapement := Angulo;
FontInfo.lfOrientation := Angulo;
// Establecer la calidad
FontInfo.lfQuality := Calidad;
// Crear una nueva fuente con la información modificada
// La nueva fuente deberá ser liberada llamando a DeleteObject
Result := CreateFontIndirect(FontInfo);
end;

procedure TextOutA(Lienzo: TCanvas; X, Y, Angulo: Integer;
Texto: string);
var
FuenteOriginal, FuenteInclinada: HFont;
begin
// Crea una fuente inclinada a partir de la fuente actual
FuenteInclinada := CreateAngledFont(Lienzo.Font.Handle, Angulo,PROOF_QUALITY);
if FuenteInclinada <> 0 then begin
// La establemos temporalmente como la fuente actual
FuenteOriginal := SelectObject(Lienzo.Handle, FuenteInclinada);
if FuenteOriginal <> 0 then begin
// Escribimos el texto
Lienzo.TextOut(X, Y, Texto);
// Restaura la fuente original
if SelectObject(Lienzo.Handle, FuenteOriginal) = 0 then begin
Lienzo.Font.Handle := FuenteInclinada;
// raise Exception.Create('No se pudo restaurar la fuente');
exit;
end;
end;
// Libera la fuente inclinada
DeleteObject(FuenteInclinada)
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with label1 do
begin
Font.Name := 'Arial'; // IMPORTANTE: fuente True Type
Font.Size := 14;
Font.Color:=clBlue;
//Canvas.Brush.Color := Color;
TextOutA(Canvas, 5, 230, 900, 'tocame las narices');
end;
end;

=============SEGUNDA========================
procedure TForm1.Button2Click(Sender: TObject);
procedure EscribeEnVertical(Donde:TCanvas;x,y:integer;Texto:string);
var
n : integer;
begin
for n:=1 to Length(Texto) do
begin
with Donde do
TextOut( x,
y+(TextHeight('W')*(n-1)),
Texto[n]);
end;
end;
begin
EscribeEnVertical(Image1.Canvas,10,10,'Pruebilla');
end;

Pregunta:	19914 - ABRIR REPORTES DE QUICKREPORT AL OPRIMIR UN BOTON
Autor:	William Olvera
quisiera saber como le puedo hacer para abrir directamente reportes creados previamente, es decir, quisiera que al clickear un boton saliera un cuadro de dialogo y pudiera escoger el QReport que quiera y entonces se le haga un preview al reporte escogido. Ayuda Porfa!!!! la necesito!!! he movido de todo y no se que hacer.

Respuesta:	Olger Navarro Guerrero
Coloca un boton y a este le agregas un PopapMenu en donde estaran definidos todos tus reportes, luego en cada OnClick de cada MenuItem le agregas el codigo que quieras.

Respuesta:

Marco Rodríguez

Te puedo dar una opción a tu pregunta.
Por que no ponés un Radiogroup con la cantidad de reportes que tenés. entonces ponés un botón al lado, al clikear el botón te hará una sentencia if como la siguiente:

if radiogroup1.ItemIndex = 0 then
'nombre del reporte'.preview
else if radiogroup1.ItemIndex =10 then
'nombre del reporte'.preview
Y haces tantos if como reportes tengas en el radiogroup
Nota: debés agregar el nombre de los reportes en la propiedad del rediogroup llamada Items.

Pregunta:	21902 - IMPRESIóN DE FOTOGRAFíAS
Autor:	Alexis Nadal
Hola a todos. Soy un novel en Delphi 4, tengo la necesidad de imprimir fotos en papel A4, formato 10x15, por lo que confeccioné un programa donde a partir de una lista de archivos jpeg (cada jpeg aprox 150K), paso un máximo de dos fotos a un QReport y lo imprimo, y así sucesivamente hasta que no quedan fotos en la lista. ¿He elegido el método adecuado?, ya que para conseguirlo tuve que poner los QImage dentro de un QReport dentro de un TitleBand maximizado al tamaño de la página, Problema: imprimo página a página (perdiendo velocidad de impresión). En caso de que el método que he elegido sea adecuado, aunque de no serlo por curiosidad también me gustaría conocer la solución al problema: cuando imprimo el QReport con dos fotos en HP990C USB, en ocasiones únicamente se imprime una de ellas, cuando lo hago a través de la impresora Minolta DeskLaser conectada en red (32Mb), recibe los datos pero no imprime, simplemente vuelve a ponerse en línea, si ésta última la conecto directamente a través del puerto paralelo imprime correctamente. Creo que la respuesta es que manda la impresión de la imagen descomprimida, por lo que el tamaño de los datos hacia la impresora es muy elevado, he observado simulando la misma impresión desde Word que el tamaño de los datos hacia la impresora es mucho más bajo y consigo una impresión correcta en todas las situaciones, ¿Cómo puedo conseguir imprimir correctamente enviando menos información tal y como lo hace Word?

Respuesta:

Alvaro grijalvo longo

El problema que tienes al imprimir fotos que hay veces que te imprime una sola foto,me ocurrio a mi no hace poco.El problema es que por alguna extraña razón al mandar imprimir las fotos tu programa o el delphi(no lo tengo muy claro) no libera adecuadamente memoria y por eso no te imprime las todas las fotos. Intenta liberar de alguna forma la memoria en tu programa pero cuidado donde lo haces porque si no lo haces en el lugar adecuado puedes perder la información necesaria que hay en memoria y que pierda todo y no te imprima nada.

Pregunta:	22970 - PAGINACION TOTAL DE REPORTES
Autor:	Jorge Cortes
Quiero poner el total de paginas en el PageFooter, esto es, no solo el pagenumber si no tambien el pagecount, pero este al parecer no me responde como deberia, que recomiendan? Gracias

Respuesta:	JUAN JESUS SAMANO
MIra yo estoy enumerando mis paginas, y fa forma como lo hago es: a) en la banda de rbpagefooder b) poner una expresión QREXPR c) en sus propiedades en expression asignarle la variable PAGENUMBER esta variable te enumera automaticamente para cada pagina. espero te sirva.

Respuesta:

Alberto Gomez

Con la version demo de QuickReport incorporada en las versiones de delphi no se puede realizar asi como asi.

Deberias visualizar el report desdes qrpreview (busca informacion sobre ello) y entonces en el pagefooter pones una label en blanco .

si realizas el preview con este componente no te saldra pero a la hora de imprimir en el evento before print le asignas el valor a la variable del pageCount.

asi se saldra en la impresion pero no en el preview. Es lo unico que yo he conseguido despues de varias horas de pruebas. O eso o te compras la version original de quick report..

Existe una alternativa que seria utilizar el fast report yo no lo he utilzado pero pareceser que hablan bien de el.

Pregunta:	24504 - DOS HOJAS EN QREPORT
Autor:	Javier Dermit
Estoy intentado decirle al QUREPORT, que necesito definir DOS HOJAS y a cada una de ellas le tengo que indicar que informacion y titulos mostrar..Si alguien sabe como se hace desde ya muchas graciasJavier

Respuesta:	Martin Utrera Zurita
En una forma puedes insertar tantos objetos quickreport como gustes... Inserta dos de ellos y a cada uno ponle los datos que gustes... A través condiciones puedes elegir cual de los dos muestras o imprimes...

Pregunta:	26113 - NO RECALCULAR DATOS DEL PREVIEW AL IMPRIMIR
Autor:	Ivan Fernandez Lorente
Hola: Trabajando con quickreports, al usar el qrpreview, me encuentro con el problema de que despues de previsualizar la report y al imprimir vuelve a leer y/o calcular los datos. Para enlazar el report con el preview utilizo: procedure Tform.ReportPreview(Sender: TObject); begin self.objpreview.QRPrinter := tqrprinter(sender); end; Como podria hacerlo para que no recalcule sino que imprima el preview que ya tengo generado? Muchisimas gracias.

Respuesta:	Lui Fernandez
Basta que desde un boton de la aplicación llames al método Preview de QuickRep si lo que quieres es prever o Print si quieres imprimir directamente sin antes ver los resultados del informe procedure TMainForm.BitBtn1Click(Sender: TObject); begin QuickRep1.Preview; end; procedure TMainForm.BitBtn2Click(Sender: TObject); begin QuickRep1.Print; end;

Pregunta:	26124 - WINDOWS XP Y QUICKREPORT 2
Autor:	Yamilec Fernandez
Tengo una aplicación hecha en Delphi 3, con base de datos Interbase 6.0 y utilizo el QuickReport 2 para elaborar los informes. La aplicacion funciona bien con Windows XP, pero cuando voy a ver los informes algunos funcionan y otros no. Qué puedo hacer para solucionar este problema?. De antemano muchas gracias por su valiosa colaboraciòn!

Respuesta:	Marco García
por casualidad será "printer selected is not valid" ?. Si es así es por el tratamiento que dá la familia NT a las impresoras. Si una impresora está sin funcionar durante un tiempo NT (o XP) cambia el estado de esta impresora a "inactiva" y Qreport envía el mensaje "Printer Selected is not valid". Si tienes dudas visita http://es.groups.yahoo.com/group/chileDelphiKylix/ y me cuentas.

Pregunta:	26905 - MANIPULACION DEL NUMERO DE PAGINA EN QUICKREPORT
Autor:	EDGAR ARREDONDO
como puedo cambiar el numero de inicio de pagina de impresión em el quickreport

Respuesta:	Alex Abreu
quickrep1.PrinterSettings.FirstPage o al momento de la vista preliminar ir a la barra de configuracion del quickreport

|< << 1 2 3 4 5 6 7 >> >|