RVPrint does not work, pls help ...

[CoLT]

Some time ago i build a project and everything works fine with the rvprint.

Now, i compile the code with a new version of richview and the result is bad.

the preview works as before, but the printresult is squeezed in the top left of the page. i've tried to solve the problem without success

i load the text so richview

rv.Format;

RVPrint1.AssignSource(rv);
RVPrint1.FormatPages(rvdoAll);
Scrollbar1.Min := 1;
Scrollbar1.PageSize := 1;

Scrollbar1.Max := RVPrint1.PagesCount;
RVPP.ZoomMode := rvzmFullPage;
RVPP.First;

then i push the print button



procedure TForm1.PrintFile;
begin
if RV.ItemCount = 0 then
exit;

RVPrint1.AssignSource(rv);
RVPrint1.FormatPages(rvdoAll);

PrintDialog1.MinPage := 1;
PrintDialog1.MaxPage := RVPrint1.PagesCount;
PrintDialog1.FromPage := 1;
PrintDialog1.ToPage := RVPrint1.PagesCount;

if PrintDialog1.Execute then
begin
case PrintDialog1.PrintRange of
prAllPages:
RVPrint1.Print(form1.Caption, PrintDialog1.Copies, PrintDialog1.Collate);
prPageNums:
RVPrint1.PrintPages(PrintDialog1.FromPage, PrintDialog1.ToPage, 'EasyConcepts', PrintDialog1.Copies, PrintDialog1.Collate);
end;

end;

end;



What is wrong ?

thx CoLT

[Sergey Tkachenko]

Please send me a simple project reproducing this problem.

[CoLT]

project

[Sergey Tkachenko]

On my side, your project prints text starting from 2 cm from left and top edges of paper, as it is specified in rvp1.LeftMarginMM and rvp1.TopMarginMM.

[CoLT]

[Sergey Tkachenko]

May be the problem is in PDF printer?