Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Хитрости печати

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


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;

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.