Printing Images

Return to index

Author

Message

JJ

Posted: 12/11/2003 15:12:31

If I print a Document with RVPrint,

I often get Black Images on the page.

The problem disappeares, when I connect a

Printpreview.

procedure TPrintForm.ToolButton10Click(Sender: TObject);

begin

  Screen.Cursor := crHourglass;

  // Assigning document for printing:

  RVPrint.AssignSource(REPrint);

  // Formatting pages:

  RVPrint.FormatPages(rvdoAll);

  // Updating user interface for preview:

  // Preview will show full page:

  RVPrintPreview1.ZoomMode := rvzmFullPage;

  // Preview will show 1st page:

  RVPrintPreview1.First;

  Screen.Cursor := crDefault;

end;

Has anyone had this problem and solved it ?

Thanks for all suggestions

JJ