RAD Studio VCL Reference
|
Starts a new page and increments the PageNumber property.
procedure NewPage;
__fastcall NewPage();
NewPage forces the current print job to begin printing on a new page in the printer.
NewPage increments the value of the PageNumber property. It also resets the value of the Pen property of the Canvas back to (0, 0).
C++ Examples:
{ This example uses a button, a Page Control, and a Print dialog box on a form. When the user clicks the button, the print dialog is displayed. The user can select any subset of the pages in the page control for printing. The selected pages are then printed. To run this example successfully, you must add the Printers unit to the uses clause of your unit. Right click on the PageControl to add at least one page to the PageControl. */ void __fastcall TForm1::Button1Click(TObject *Sender) { PrintDialog1->Options.Clear(); PrintDialog1->Options << poPageNums << poSelection; PrintDialog1->FromPage = 1; PrintDialog1->MinPage = 1; PrintDialog1->ToPage = PageControl1->PageCount; PrintDialog1->MaxPage = PageControl1->PageCount; if (PrintDialog1->Execute()) { int Start, Stop; // determine the range the user wants to print switch (PrintDialog1->PrintRange) { case prSelection: Start = PageControl1->ActivePage->PageIndex; Stop = Start; break; case prPageNums: Start = PrintDialog1->FromPage - 1; Stop = PrintDialog1->ToPage - 1; break; default: // prAllPages Start = PrintDialog1->MinPage - 1; Stop = PrintDialog1->MaxPage - 1; break; } // now, print the pages Printer()->BeginDoc(); for (int i = Start; i <= Stop; i++) { PageControl1->Pages[i]->PaintTo(Printer()->Handle, 10, 10); if (i != Stop) Printer()->NewPage(); } Printer()->EndDoc(); } }
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|