Club Builder

[José Luis Fernández Piñer]

Necesito imprimir una imagen que tengo en el portapapeles, se trata de un simple bmp, pero no se cómo hacerlo. He intentado copiar el contenido del portapapeles en el objeto canvas de la impresora ( Printer()->Canvas ).

Si alguien pudiera ayudarme le estaría muy agradecido.

jlfp@telecable.es

[_Leo]

Hola José Luis:

A ver si te sirve así. Esto imprime el contenido del portapapeles en caso de que sea un bitmap:

 // Añadir #include <clipbrd.hpp>
 // Añadir #include <printers.hpp>

 TPrinter *P = Printer();
 TClipboard *C = Clipboard();

 if ( C->HasFormat(CF_BITMAP) )
 {
    Graphics::TBitmap *bmp = new Graphics::TBitmap();
    bmp->LoadFromClipboardFormat(CF_BITMAP, C->GetAsHandle(CF_BITMAP), 0);

    TRect R;
    R.Left = 1;
    R.Top = 1;
    R.Right = P->PageWidth;
    R.Bottom = (bmp->Height * R.Width()) / bmp->Width;

    P->BeginDoc();
    P->Canvas->StretchDraw(R, bmp);
    P->EndDoc();

    delete bmp;
 }
 else
    ShowMessage("No hay un bitmap en el clipboard");

Saludos.