Hola Angel....
mira, prueba con esta estructura
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap* B = new Graphics::TBitmap;
try
{
TPrinterSetupDialog *PS = new TPrinterSetupDialog(NULL);
try
{
PS->Execute();
}
catch(...)
{
delete PS;
throw;
}
delete PS;
B->Width = Screen->Width;
B->Height = Screen->Height;
}
catch(...)
{
delete B;
throw;
}
delete B;
}