Советы по Delphi
         

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


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

const INCHES_PER_MILIMETER : Real = 0.04;

type
TOffset = recordX,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 thenalign := SetTextAlign(Printer.Handle,TA_BOTTOM or TA_LEFT)elsealign := 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
beginPrinter.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;beginyLoc := 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;beginPutText(100,FPageHeightMM,InttoStr(Printer.PageNumber), TRUE);end;
begin
Heading;TheRow := 1;while (TheRow < StringGrid1.RowCount) dobeginif (yLoc > (FPageHeightMM - MMSize)) thenbeginFooter;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;

[000212]



Содержание раздела