TPrintDialogFromPage (C++)

Description

This example uses a button, a Page Control, and a Print dialog box on a form. When you click the button, the print dialog is displayed. You 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 the PageControl to add at least one page to the PageControl.

Code

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();
  }
}

Uses

• Vcl.Dialogs.TPrintDialog.FromPage ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.MaxPage ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.MinPage ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.Options ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.PrintRange ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.ToPage ( fr | de | ja )
• Vcl.Dialogs.TPrintDialog.Execute ( fr | de | ja )
• Vcl.Controls.TWinControl.PaintTo ( fr | de | ja )
• Vcl.Printers.TPrinter.BeginDoc ( fr | de | ja )
• Vcl.Printers.TPrinter.NewPage ( fr | de | ja )
• Vcl.Printers.TPrinter.EndDoc ( fr | de | ja )
• Vcl.Printers.TPrinter.Handle ( fr | de | ja )
• Vcl.Printers.Printer ( fr | de | ja )