Como imprimir datos

[mizzard]

Hola a todos, me gustaria plantearos una duda.

Resulta que yo trabajo con C++ Builder 2010 y se me plantea una duda.

Quiero realizar un programa que maneje los datos de una BD de access (hasta ahi, de momento todo bien), lo que pasa es que me gustaria generar

una especie de "informe" e imprimirlo.

Habia pensado en usar un RichEdit e ir insertando los campos para generar una especie de tiquet de compra indicando fecha, producto, cantidad,

total...

Pues tras mucho toquetear he conseguido mostrarlo como me gustaria en el RichEdit, y con el comando RichEdit->Print("Nombre_q_qiera"), consigo

que me lo imprima pero no puedo configurar la página ni las copias.

Se que existen tanto el PrintDialog, como el PrinterSetupDialog, pero por mas que intento que me imprima mi RichEdit, solo consigo que me saque

sin formato el texto que yo ya habia puesto con formato.

Os pongo el código de ejemplo sencillo para que veais lo q hago:

Codigo para poner texto en el Rich edit

Código Delphi [-]

 AnsiString Factnum= "123";

    RichEdit1->SelStart =0;
    RichEdit1->SelAttributes->Size = 10;
    RichEdit1->SelAttributes->Color = clRed;
    RichEdit1->SelText = "Factura nº ";
    RichEdit1->SelText = Factnum;
    RichEdit1->SelText = "\n";
    RichEdit1->SelText = "\n";
    RichEdit1->SelAttributes->Size = 8;
    RichEdit1->SelAttributes->Color = clBlack;
    RichEdit1->SelText = "Patatas con pollo";

Código con el que intento imprimir las letras con ese formato:

Código Delphi [-]

void __fastcall TForm2::Button4Click(TObject *Sender)
{
    int Y=25;

    if(PrintDialog1->Execute()){
        Printer()->Canvas->Font = RichEdit1->Font;
        Printer()->Title = Caption;
        Printer()->BeginDoc();

        for(int Copias=0; Copias< PrintDialog1->Copies;Copias++){
            if(PrintDialog1->PrintRange == prSelection)
                Printer()->Canvas->TextOutA(Printer()->Canvas->PenPos.x,
                Printer()->Canvas->PenPos.y, RichEdit1->SelText);
            else
                for(int N=0; N< RichEdit1->Lines->Count; N++){
                    Printer()->Canvas->TextOutA(25,Y,RichEdit1->Lines->Strings[N]);
                    Y += Printer()->Canvas->TextHeight("XXX");
                    if(Y + Printer()->Canvas->TextHeight("XXX")> Printer()->PageHeight){
                        Printer()->NewPage();
                        Y = 25;
                    }
                }
                //Printer()->NewPage();
        }
        Printer()->EndDoc();
    }
}

Se podria hacer lo que quiero de alguna otra forma o de la forma que intento estaría bien encaminado??

Cualquier ayuda la agradeceré enormemente!

Un saludo!

[_cero_]

Por qué no creas un reporte con el Rave Reports? Si te decantas por usar el rave, en la carpeta “Demos” del rad studio, tienes interesantes ejemplos, aun así por cualquier cosa andaré por aquí .

[mizzard]

Perdona, es q soy novato en estas cosas.
Me podrias explicar que ventajas conlleva el usar eso q me dices y en que consiste?

Gracias, un saludo

[_cero_]

Rave Reports es una herramienta externa asociada a builder (que se instala con el), que permite la creación de informes a partir de una base de datos. Se pueden crear toda variedad de informes, desde un simple folio con una banda hasta otros más complejos con múltiples bandas. Incluye las siguientes características:

- Integración de gráficos.
- Párrafos justificados.
- Modificación de opciones de impresora.
- Control de las fuentes.
- Vista previa antes de imprimir.
- Exportación a PDF, HTML, RTF y archivos de texto.
- Entre otras.

Lo único que tienes que hacer es meter tres componentes en tu Form, que están en la pestaña “Rave” en la paleta de componentes.
Los componentes serían el “TRvProject” que es con el que manejaras el proyecto del reporte que hagas, el “TRvSystem” que sirve para manejar algunas opciones de la impresión/ pre visualización y por último el “TRvDataSetConnection” que es el que enlaza el origen de datos con el reporte.

Te dejo un tuto que te enseñara a usarlo, como en una hora ya podrás hacer reportes simples y si le exploras mas o ves los ejemplos que trae el builder te darás cuenta de que puedes hacer cosas realmente complejas con gran facilidad.

Tuto:
http://delphiallimite.blogspot.com/2...reports-i.html
http://delphiallimite.blogspot.com/2...eports-ii.html
http://delphiallimite.blogspot.com/2...ports-iii.html
http://delphiallimite.blogspot.com/2...eports-iv.html
http://delphiallimite.blogspot.com/2...ports-y-v.html

[mizzard]

Wow!, muchiiiiiiiiiisimas gracias

Voy a empezar a mirarme toda esa información porque es justo lo q necesito.... q ya me parecia a mi que eso de incorporarlo todo en un richedit era una solucion cutrecilla..... jeje.


Muchas gracias de nuevo y un saludo!

[mizzard]

Hola _cero_ tengo unas dudas:

He tenido que ir traduciendo de Delphi a C++ Buider hasta que me he encontrado con esto y no se como seguir:

También vamos a vincular el componente Sistema al componente Proyecto a través de su propiedad Engine. Como estamos utilizando una conexión ADO tenemos que añadir en la sección uses de nuestro formulario la unidad RvDLADO, porque en caso contrario nos mostraría el error:

No DATA Link drivers have been loaded.

El caso es que no se como añadir la unidad RvDLADO en C++ Builder (me aparece ese error).

Por otro lado he intentado continuar obviando este problema siguiendo con el tutorial:
Creando informes con Rave Reports (y V)

Ya que el programa una vez terminado tendria que instalarse en otra máquina, por lo que necesitaría que a partir de un instalador y configurandolo (segun se indica) funcionase correctamente.

Leyendo en este capitulo me indica que necesito usar el componente de la clase TIBDatabase.

El problema esta en que cuando intento agregarlo me dice que no lo tengo instalado pq no se encuentra el path de Interbase. Mi pregunta es:

¿Has llegado a realizar lo que he comentado y verlo funcionar en otro PC haciendo lo que se dice en el tutorial?

Te lo comento pq hay una linea de código que dice lo siguiente:

Código Delphi [-]
Proyecto->ProjectFile = ExtractFilePath( Application->ExeName ) + "clientes.rav";

Y al correr el programa si no lo tengo metido el *.RAV en debug no funciona (por lo que no se si al lanzar el exe en otro pc que es lo q puede pasar)

Y en el link que me pasaste tb pone la siguiente ruta cuando habla del TIBDataBase:
Database: D:\Desarrollo\DelphiAlLimite\Rave\BaseDatos.fdb

Por lo que me surge la duda de si cuando se instala en otro Pc y es otra ruta... como pasarle el parámetro ese según donde se haya instalado todos los archivos de mi programa (como pasarle el path)

Muchas Gracias!!!!