Ayuda con imprimir

[ucanneo]

Pues bueno recien estoy en lo mismo y ve he visto en la necesidad de pasarlo a builder (gracias por la ayuda),
hay que aclarar que tienes que ver a cada hoja de impresion como un objeto TCanvas, por lo que si has manejado
este objeto antes no tendrás problemas, es decir si lo que quieres es poner un texto en cualquier parte de la hoja
tendrías que:


1.- Darle formato al texto (Cabiar las propiedades de fuente "Canvas->Font" )

2.- Calcular el sitio donde lo vas a poner... y ponerlo (Canvas->TextOutA(posicionX, posicionY, "Texto"))


Si lo que uieres poner es un gráfico o crear una segunda página en blando checa el ejemplo

//---------------------------------------------------------------------------

void __fastcall TForm1::btnImprimirClick(TObject *Sender)
{

        Printer()->Title = "Listado"; //Nombre del archivo

        Printer()->BeginDoc();        //Abriendo el buffer de impresion, como abrir un .doc
        
        Printer()->Canvas->Draw(100,100,Image1->Picture->Graphic); //ASí es como mandas una imagen al documento
         /*
              En esta parte del código es donde pones en la página lo que te plazca
              ya sean textos, imagenes o dibujos, siempre teniendo en cuenta que la página es
              un lienzo gigante Printer()->Canvas->LoQueDeseesHacer
         */

        Printer()->NewPage();         // as´es como obtienesuna nueva pag, en blanco por supuesto


        Printer()->EndDoc();          //Como darle salvar al .doc y prepararlo para la impresion


}
//---------------------------------------------------------------------------

_____________________
saludos
_____________________