FUNCTION Print_mmtoPixH(mm: real):Integer;
BEGIN
   With Printer do
   Begin
     Hoehe:=GetDeviceCaps(Printer.Canvas.Handle,VERTSIZE);
     FaktorH:=Printer.PageHeight/Hoehe;
   end;
   Result :=Round(FaktorH*mm);
END;

FUNCTION Print_mmtoPixW(mm: real):Integer;
BEGIN
   With Printer do
   Begin
     Breite:=GetDeviceCaps(Printer.Canvas.Handle,HORZSIZE);
     FaktorB:=Printer.PageWidth/Breite;
   end;
  Result:=Round(FaktorB*mm);
END;


위의 두 함수는 TPrinters.pas의 정보를 가지고 mm를 Pixel로 바꿔주는 함수입니다..
이를 이용해서 TextOut을 이용하시면 원하시는 위치에 값을 찍을수 있구여.
A4, A3에 대한 용지 정보는 printers.pas의 도움말 참조하시면 됩니다.
마찬가지로 가로세로 정보역시...
그럼 즐프하시길...