Components for Delphi and C++ Builder.

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "PrViewEh.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   TPrinterPreview *P=PrinterPreview();
   P->BeginDoc(); // Ошибку не выдает
   P->EndDoc();
        //Открывается пустое окно предварительного просмотра.
}