TPrintDialog.PrintToFile Property

Indicates whether the Print To File check box is selected.

Pascal

property PrintToFile: Boolean;

C++

__property Boolean PrintToFile;

Description

PrintToFile is true whenever the Print To File check box is selected in the dialog. To make the dialog open with the check box selected, set PrintToFile to true in the Object Inspector or in program code.

To make the Print To File check box appear in the dialog, set the poPrintToFile flag in Options. To disable (gray) the Print To File check box, set the poDisablePrintToFile flag.

C++ Examples:

Copy Code

/*
This example displays a print dialog box with a Print to
File check box, and then prints the contents of a rich edit
control to the indicated destination:
Verify that the file is saved by the SaveDialog.
*/
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  PrintDialog1->Options << poPrintToFile;
  PrintDialog1->PrintToFile = true;
  if (PrintDialog1->Execute())
  {
    if (PrintDialog1->PrintToFile)
    {
      SaveDialog1->Title = "Print to File:";

      /* Save in UTF8 format */
      if (SaveDialog1->Execute())
        RichEdit1->Lines->SaveToFile(SaveDialog1->FileName, TEncoding::UTF8);
      else
        RichEdit1->Print("");
    }
  }
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// you may need to change this path to suit your environment
  char const *Path = "..\\overview.rtf";
  RichEdit1->PlainText = false;

  /* Load from UTF8 format */
  RichEdit1->Lines->LoadFromFile(Path, TEncoding::UTF8);
  RichEdit1->ScrollBars = ssVertical;
}

Delphi Examples:

Copy Code

{
This example displays a print dialog box with a Print to
File check box, and then prints the contents of a rich edit
control to the indicated destination:
Verify that the file is saved by the SaveDialog.
}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with PrintDialog1 do
  begin
  Options := [poPrintToFile];
  PrintToFile := True;
  if Execute then
    begin
    if PrintToFile then
      begin
      SaveDialog1.Title := 'Print to File: ';

      { Save in UTF8 format }
      if SaveDialog1.Execute then
        RichEdit1.Lines.SaveToFile(SaveDialog1.FileName, TEncoding.UTF8);
      end
    else
      RichEdit1.Print('');
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  // you may need to change this path to suit your environment
  Path = 'OverView.RTF';
begin
  RichEdit1.PlainText := False;

  { Load from UTF8 format }
  RichEdit1.Lines.LoadFromFile(Path, TEncoding.UTF8);
  RichEdit1.ScrollBars := ssVertical;
end;