Хитрости печати

Все просто. Если знать как. Приведу небольшой код, позволяющий стать гуру в области печати. Надеюсь. Смотрите на комментарии. Все очень просто.

const

  INCHES_PER_MILIMETER: Real = 0.04;

type

  TOffset = record

    X, Y: Integer;
  end
;

var

  FDeviceName: string
; {Имя устройства}

  FPageHeightPixel, FPageWidthPixel: Integer; {Высота и ширина страницы}
  FOrientation: TPrinterOrientation; {Ориентация}
  FPrintOffsetPixels: TOffset;
  FPixelsPerMMX, FPixelsPerMMY: Real;
  MMSize, FPageHeightMM: Integer;
  TheReport, TheHead, HeadLine, RecordLine, TFname, TLname: string
;

procedure
 TMissing_Rep.GetDeviceSettings;

var

  retval: integer;
  PixX, PixY: Integer;

begin


  FDeviceName := Printer.Printers[Printer.PrinterIndex]; {Получаем имя}
  FPageHeightPixel := Printer.PageHeight; {Получаем высоту страницы}
  FPageWidthPixel := Printer.PageWidth; {Получаем ширину страницы}
  FOrientation := Printer.Orientation;
  {Ориентация}

  {Получаем отступ при печати (поля страницы)}
{$IFDEF WIN32}
  FPrintOffsetPixels.X := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
  FPrintOffsetPixels.Y := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
{$ELSE}
  retval := Escape(Printer.Handle, GETPRINTINGOFFSET,
    0, nil
, @FPrintOffsetPixels);
{$ENDIF}
  {Получаем количество пикселей, печатаемое на миллиметре бумаги}
  PixX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  PixY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  FPixelsPerMMX := INCHES_PER_MILIMETER * PixX;
  FPixelsPerMMY := INCHES_PER_MILIMETER * PixY;
  FPageHeightMM := Round(FPageHeightPixel / FPixelsPerMMY);
end
;

function
 TMissing_Rep.PutText(mmX, mmY: Integer; S: string
; LeftAlign:
  Boolean): boolean;
var


  X, Y: Integer;
  align: WORD;
begin


  if
 LeftAlign then

    align := SetTextAlign(Printer.Handle, TA_BOTTOM or
 TA_LEFT)
  else

    align := SetTextAlign(Printer.Handle, TA_BOTTOM or
 TA_RIGHT);
  result := FALSE
; {Вначале присваиваем флаг неудачи при выполнении функции}
  X := Trunc(mmX * FPixelsPerMMX) - FPrintOffsetPixels.X;
  Y := Trunc(mmY * FPixelsPerMMY) - FPrintOffsetPixels.Y;
  if
 X < 0 then

    exit;
  if
 Y < 0 then

    exit;
  Printer.Canvas.TextOut(X, Y, S);
  result := TRUE
;
end
;

procedure
 TMissing_Rep.Print_ButClick(Sender: TObject);

var

  PixelSize: Integer;

begin

  Print_But.Enabled := False
;
  if
 PrintDialog1.Execute then


  begin

    Printer.Canvas.Font := Missing_Rep.Font;
    PixelSize := Printer.Canvas.TextHeight('Yy');
    MMSize := Round(PixelSize / FPixelsPerMMY);
    Printer.Title := 'Отчет';
    Printer.BeginDoc; { начинаем пересылать задание на печать }
    PrintGenerator;
    Printer.EndDoc; { EndDoc заканчивает задание печати }
  end
;
  Print_But.Enabled := True
;
end
;

procedure
 TMissing_Rep.PrintGenerator;

var

  yLoc, NumRows, TheRow: Integer;

  procedure
 Heading;
  begin

    yLoc := 20;
    PutText(20, 20, TheHead, TRUE
);
    yLoc := yLoc + MMSize;
    PutText(20, yLoc, StringGrid1.Cells[0, 0], TRUE
);
    PutText(60, yLoc, StringGrid1.Cells[1, 0], TRUE
);
    PutText(100, yLoc, StringGrid1.Cells[2, 0], TRUE
);
    PutText(120, yLoc, StringGrid1.Cells[3, 0], TRUE
);
    PutText(150, yLoc, StringGrid1.Cells[4, 0], TRUE
);
    yLoc := yLoc + MMSize;
  end
;

  procedure
 Footer;
  begin

    PutText(100, FPageHeightMM, InttoStr(Printer.PageNumber), TRUE
);
  end
;

begin


  Heading;
  TheRow := 1;
  while
 (TheRow < StringGrid1.RowCount) do

  begin

    if
 (yLoc > (FPageHeightMM - MMSize)) then

    begin

      Footer;
      Printer.NewPage;
      Heading;
    end
;
    TheGauge.Progress := Round(100 * TheRow / (StringGrid1.RowCount - 1));
    PutText(20, yLoc, StringGrid1.Cells[0, TheRow], TRUE
);
    PutText(60, yLoc, StringGrid1.Cells[1, TheRow], TRUE
);
    PutText(100, yLoc, StringGrid1.Cells[2, TheRow], TRUE
);
    PutText(120, yLoc, StringGrid1.Cells[3, TheRow], TRUE
);
    PutText(150, yLoc, StringGrid1.Cells[4, TheRow], TRUE
);
    yLoc := yLoc + MMSize;
    TheRow := TheRow + 1;
  end
;
  Footer;
end
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати