SoloCodigo

Hola, ya lo he resuelto. Para ello he tenido que usar funciones de la API de Windows.

Si quereis ver el código os remito a mi ultimo post del hilo:

"Ayuda Para Completar Código. Uso De Bitmap, Traducción de Delphi a Builder C++"

 Despues de mucho currar y pensar en caminos alternativos, he logrado la impresión de una Form con controles RichEdit (entre otros..) de la siguiente manera:

1ª) Crear una imagen de la ficha que pretendes imprimir. Lo que he hecho es copiar mi ficha de la Aplicación en otra, cambiar su color de fondo a Blanco, quitar efectos de 3d de algunos controles, etc.. vamos en definitiva lo que he considerado necesario para que la copia de esta form sea lo que yo quiero que se imprima.

2º) Impresión de la ficha que he preparado: Como la función Print() fallaba me ingenié el siguiente camino alternativo:
2.1.- Crear una imagen de la ficha (Bitmap)-> Ver un hilo que abrí a tal efecto.
2.2.- Crear una tercera ficha en la que se incluya un control Image que ocupe todo el area cliente de la nueva ficha
2.3.- Cargar en dicho control el Bitmap
2.4.- Imprimir esta tercera ficha usando la función Print():
Form3->Print();

  Os puedo asegurar que funciona.  

Nota: Yo en vez de usar el Bitmap directamente, lo que hago es guardarlo en un fichero.bmp, luego para cargar el fichero en el control image uso:
Form3->Image->Picture->LoadFromFile("C:\ImagenForm2.bmp");
Pero es mejor cargar directamente el Bitmap en el control Image, ahorrándote el proceso de guarda/carga en fichero.bmp. Para hacerlo de esta manera usar esta instrucción:
Form3->Image->Picture->Bitmap->Assign(Bitmap);

Pd-> Agradecimientos a todos aquellos que han hecho posible que siga avanzando con el proyecto.
1 Saludo.

Hola tengo el siguiente código que lo que hace es:
1º) copiar la imagen de la ficha Form1 en un componente Bitmap y
2º) pega dicha imagen en la ficha Form2

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Creamos el componente Bitmap
Graphics::TBitmap *BitmpPrueba = new Graphics::TBitma();  
//Copiamos la imagen de la Form en un Bitmap
CopyControlImage(Form1, BitmpPrueba); //Tb se podría poner Screen->ActiveForm
//Dibujamos el Bitmap en una nueva form
Form2->Canvas->Draw(0,0,BitmpPrueba);
//La mostramos
Form2->Show();

delete BitmpPrueba;
}

- Aqui está el código del Procedimiento que copia la imagen de la Form1 a un Bitmap:

//DESCRIPICION: Se pretende capturar en un BitMap un control cualquiera que se le pasa como parámetro.
void TForm1::CopyControlImage(TWinControl *Control,Graphics::TBitmap * BitmpPrueba){
HDC DC; //Pasar de Delphi a Builder C++ --> esto para que sirve???
//Ajustamos las dimensiones del bitmap BitmpPrueba a las del Control
BitmpPrueba->Width = Control->Width;
BitmpPrueba->Height = Control->Height;
//Copia de la imagen de la Form en el control Bitmap BitmpPrueba
//--------------------------------------------------------------------
Pasar de Delphi a Builder C++ estas instrucciones
DC.GetWindowDC(Control->Handle);
BitBlt(BitmpPrueba->Canvas->Handle, 0, 0, Control->Width, Control->Height, DC, 0, 0, SRCCOPY);
ReleaseDC(Control->Handle, DC);
//--------------------------------------------------------------------
}

- Lo que no sé es como realizar la copia de la imagen de la Form1 al Bitmap, este código al parecer lo puede hacer, pero está en Delphi. Si alguien sabe un equivalente a este código para Builder C++ le estaría muy agradecido.
1 Saludo.  

Hola me preguntaba si es posible convertir una form junto con sus controles TLabel, TEdit, ... etc.. en una imagen, de manera que en esa imagen tengamos la "foto" de la Form.

¿Se puede generalizar para cualquier control? Es decir, se puede tener la imagen (Bitmap ó similar) de un control cualquiera.

1 Saludo