Changing Page Margins

Return to index

Author

Message

Jan Schloen

Posted: 02/09/2005 11:58:00

Hi,

is it possible to chane the page margins for 1st page and page 2..n ?

For example in

void __fastcall TMainform1::RVPrint1PagePrepaint(TRVPrint *Sender,

         int PageNo, TCanvas *Canvas, bool Preview, TRect &PageRect,

         TRect &PrintAreaRect)

{

   if (PageNo==1)

   {

       Sender->TopMarginMM = 30;

       Sender->BottomMarginMM = 30;

       Sender->FormatPages(TRVDisplayOptions());

   }

   else

   {

       Sender->TopMarginMM = 15;

       Sender->BottomMarginMM = 15;

       Sender->FormatPages(TRVDisplayOptions());

   }

.....

}

It tried it but margins are changed not for the current page but for the

following page. Are there any examples ??

Thanks, Jan Schloen