如何设置打印纸张的边界。。。？

Question

通过纸张设置后，需要改变打印边界，让其边界上下均为0或很小的值...?

Answer 1

PRINTER MARGINS 
A:
procedure TPrtPvw.GetOffsetPrinter;
var
   pt: TPoint;
   tmpAncho,tmpAlto: longint;
begin
   Escape(hPrinter,GETPRINTINGOFFSET,0,Nil,@pt);
   gOffSetLeft:=pt.X;
   gOffSetTop:=pt.Y;
   Escape(hPrinter,GETPHYSPAGESIZE,0,Nil,@pt);
   tmpAncho:=pt.X;
   tmpAlto:=pt.Y;
   gOffSetRight:=tmpAncho-gOffSetLeft-Printer.PageWidth;
   gOffSetBottom:=tmpAlto-gOffSetTop-Printer.PageHeight;
end;

Answer 2

happyzsl(学习) :     此方法好象是获取打印边界, 如何设置边界呢...?

Answer 3

QuickRep1.Page.LeftMargin:=0 ;
  QuickRep1.Page.TopMargin:=0 ;