Re: Print Error!

Author

Message

Sergey Tkachenko

Posted: 05/30/2002 18:18:00

Preview may be not very accurate in character spacing, but printing on paper

should be ok.

WYSIWYG is not supported yet. The only thing that you can do is to set

rv.MinTextWidth and rv.MaxTextWidth to value equal to paper width (between

margins).

But it is not guaranteed that lines will be wrapped exactly in the same

places as on the paper.

The procedure below returns width and height of printable area, converted to

screen resolution.

procedure GetScreenPageSize(RVPrint: TRVPrint;

var Width, Height: Integer);

var DC: HDC;

phoX, phoY, phW, phH, lpy, lpx, LM, TM, RM, BM: Integer;

begin

DC := RV_GetPrinterDC; // from PtblRV unit

Width := GetDeviceCaps(DC, HORZRES);

Height := GetDeviceCaps(DC, VERTRES);

lpy := GetDeviceCaps(DC, LOGPIXELSY);

lpx := GetDeviceCaps(DC, LOGPIXELSX);

phoX := GetDeviceCaps(DC, PHYSICALOFFSETX);

phoY := GetDeviceCaps(DC, PHYSICALOFFSETY);

phW := GetDeviceCaps(DC, PHYSICALWIDTH);

phH := GetDeviceCaps(DC, PHYSICALHEIGHT);

LM := MulDiv(RVPrint.LeftMarginMM, 5*lpx, 127)- phoX;

TM := MulDiv(RVPrint.TopMarginMM, 5*lpy, 127)- phoY;

RM := MulDiv(RVPrint.RightMarginMM, 5*lpx, 127)- (phW-(phoX+Width));

BM := MulDiv(RVPrint.BottomMarginMM, 5*lpy, 127)- (phH-(phoY+Height));

if LM<0 then LM := 0;

if TM<0 then TM := 0;

if RM<0 then RM := 0;

if BM<0 then BM := 0;

dec(Width, LM+RM);

dec(Height, TM+BM);

DeleteDC(DC);

DC := GetDC(0);

Width := MulDiv(Width, GetDeviceCaps(DC, LOGPIXELSX), lpx);

Height := MulDiv(Height, GetDeviceCaps(DC, LOGPIXELSY), lpy);

ReleaseDC(0, DC);

end;

> Print Error!?

> if i set character spacing in editor,it looks no error,and in preview it

> have the right character spacing,but if i print it out,the character

spacing

> set dispear?

> And another question when to realize WYSWYG? it's very important for me!!