Printpreview.LoadFromFile extra page

[Tom Rage]

Hi,

After printing -and saving- a single page document, I recall and reprint the document, see code below. There is a small difference...a second, blank page is printed. The preview also shows the empty page. Should I refresh/clear something before/after LoadFromFile?

Thanks,
Tom.

PrintPreview.BeginDoc;
PrintPreview.LoadFromFile(AFileName);
PrintPreview.PrintJobTitle := ExtractFileName(AFileName);
PrintPreview.EndDoc;
if AutoStartPrint then
begin
if PrintPreview.State = psReady then PrintPreview.Print
...

[Kambiz]

Just strip the BeginDoc and EndDoc lines.

PrintPreview.LoadFromFile(AFileName);
PrintPreview.PrintJobTitle := ExtractFileName(AFileName);
if AutoStartPrint then
begin
PrintPreview.Print;
...

[Tom Rage]

Thanks.

Tom.