Article #15936: Setting the MaxPage property of the PrintDialog component

 Question and Answer Database
FAQ936D.txt Setting the MaxPage property of the PrintDialog component
Category :Object Pascal
Platform :All
Product :All 32 bit
Question:
When I set the MaxPage property of the PrintDialog component, the
VCL always adds one to the number of pages shown in the dialog, and
after execution, the Max page property does not change. Is this a bug?
Answer:
The VCL simply wraps the Windows common print dialog. You should
fill in all the fields before executing the dialog, and after
execution. Check the PrintDialog's FromPage and ToPage properties for
the pages to print.
Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintDialog1.Options := [poPageNums];
PrintDialog1.PrintRange := prPageNums;
PrintDialog1.MinPage := 1;
PrintDialog1.MaxPage := 5;
PrintDialog1.FromPage := 1;
PrintDialog1.ToPage := 5;
if PrintDialog1.Execute then begin
ShowMessage(IntToStr(PrintDialog1.FromPage));
SdhowMessage(IntToStr(PrintDialog1.ToPage));
end;
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99