Printer()->BeginDoc()?

В процессе работы программа формирует картинку в формате bmp и помещает ее в буфер обмена. Подскажите, как отправить на печать принтера содержимое буфера обмена?

[FONT=Times New Roman]P.S.[/FONT]
[FONT=Times New Roman]Вот так предполагаю, но почему-то получаю чистый лист при печати на виртуальный принтер PDF. Точки останова показали, что весь код в try отрабатывает:[/FONT]

[FONT=Times New Roman]void __fastcall TForm2::sButton2Click(TObject *Sender)
{
//формирование изображения в буфере обмена (код пропущен)

//затем начало печати:


Printer()->BeginDoc();
TClipboard *pCB = Clipboard();
if (pCB->HasFormat(CF_BITMAP))
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
try
{
pBitmap->LoadFromClipboardFormat(CF_BITMAP, pCB->GetAsHandle(CF_BITMAP), 0);
Printer()->Canvas->Draw(5,5,pBitmap);
}
catch (...)
{
sShowMessage("Не удалось распечатать");
delete pBitmap;
return;
}
delete pBitmap;
}
Printer()->EndDoc();
}

[/FONT]