Re: Printing scale

Return to index

Author

Message

Sergey Tkachenko

Posted: 07/29/2004 20:16:13

It's possible to do using undocumented methods:

  Printer.BeginDoc;

  RVPrint1.AssignSource(RichViewEdit1);

  RVPrint1.FormatPages(rvdoAll);

  SetMapMode(Printer.Canvas.Handle,MM_ANISOTROPIC);

  SetWindowExtEx(Printer.Canvas.Handle, 100, 100, nil);

  SetViewportExtEx(Printer.Canvas.Handle, 50, 50, nil);

  RVPrint1.rv.DrawPage(1, Printer.Canvas, False, False);

  Printer.EndDoc;

This code prints the first page scaling its size to 50% x 50%.

Margins are scaled as well.

Or you can use the same technique with TRVReportHelper component (in this

case, you calculate margins yourself)

>  AF> How to scale printing?

>

> Is it possible or not?

>

>