如何设置打印页的页边距?(100分)

  • 主题发起人 luoshanliang
  • 开始时间
L

luoshanliang

Unregistered / Unconfirmed
GUEST, unregistred user!
我得到了页的边距,如何重新设置页的边距,不是用报表控件,是用Printers类来直截输出
 
Const xDelta = 50;
begin
BorderLeft := Trunc( 0.2 * 600 );
BorderRight := Trunc( 0.2 * 600 );
xPosLeft := BorderLeft;
//左边界
xLine := ( Printer.PageWidth + BorderLeft - BorderRight );
xPosRight := xLine + xDelta;//右边界
end;

Printer.Canvas.TextOut(xPosLeft, yPos, StringList.Strings[i-1] );
 
to linsb:
BorderLeft := Trunc( 0.2 * 600 );是什么意思,
 
是个例,具体自己设定,有如:
BorderLeft:= Trunc(0.05 * Printer.PageWidth);
//左边界
 
顶部