 |
Delphi
Over the years I’ve posted quite a few news posting. And some of them have generated a lot of e-mail request.
I once posted something like "e-mail if your interested, I’ll send you the source", and he did.
And so have many google users done after him.
As a result I’ll try to put the most requested info here on this page.
PrintListView
This is the most requested function. It takes a normal ListView in report mode, and prints all the values quite nicely on the printer canvas.
comments:
The v h reals are not _really needed for this kind of standard column, but I used them to easily place object on the paper by defining the position of the object in cm and translate it to px trough v and h.
I seem to recall that I used a correction factor in the h, .95 I think... This was due to a problem with the clients printer, and should probably be removed. I you get problems with rows stretching lower that the printer canvas, you should try to change this to 1.00 or even more.. There might be a bug in calculation the h factor, but I don?t find it at the time.. And this dirty correction worked just fine.. :)
The title calculation is not common at all..
It?s there to support the title to move to the left if the canvas regions of the date and title collide.
February 2002 Sam Francke revirsed the code, commented it and improved the resuability. The code posted here is very much the same code he sendt back to me. ..so I think it's fear to give him credit.
Sam also gave this sample project (4KiB):
http://www.sventore.com/getfile.php?Program=PrintListView&Version=1.0
procedure TMainForm.PrintListview(oListView: TListView);
//-----------------------------------------------------
var
pWidth, pHeight, i: Integer;
v, h: Real;
CurItem, iColumnCount: Integer;
//aCols: array[0..50] of Integer; // Delphi 3
aCols: array of Integer; // Delphi 5
iTotColsWidth, iInnerWidth, TopMarg, LinesOnPage, CurLine, TekstHeight, CurCol: Integer;
CurRect: TRect;
CurStr: string;
CurLeft, NumPages, TmpPos: Integer;
begin
if PrintDialog1.Execute then
begin
iColumnCount := oListview.Columns.Count;
//SetLength(aCols, iColumnCount + 1); // + 1 nodig ??? Delphi 5
Printer.Title := 'Listview Print';
Printer.Copies := 1;
Printer.Orientation := poPortrait;
Printer.BeginDoc;
pHeight := Printer.PageHeight;
pWidth := Printer.PageWidth;
v := (pHeight + (2 * GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY))) / (29.7 * 0.95);
//0.95 is a strange correction factor on the clients printer
h := (pWidth + (2 * GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX))) / 21;
// calculate total width
iTotColsWidth := 0;
for i := 0 to iColumnCount - 1 do
iTotColsWidth := iTotColsWidth + oListView.Columns[i].Width;
// calculate space between lMargin and rMargin
aCols[0] := Round(1.5 * h); //left margin ?
aCols[iColumnCount + 0] := pWidth - Round(1.5 * h); //rigth margin ?
iInnerWidth := aCols[iColumnCount + 0] - aCols[0]; // space between margins ?
//calculate start of each column
for i := 0 to iColumnCount - 1 do
aCols[i + 1] := aCols[i] + Round(oListView.Columns[i].Width / iTotColsWidth * iInnerWidth);
TopMarg := Round(2.5 * v);
with Printer.Canvas do
begin
Font.Size := 10;
Font.Style := [];
Font.Name := 'Times New Roman';
Font.Color := RGB(0, 0, 0);
TekstHeight := Printer.Canvas.TextHeight('dummy');
LinesOnPage := Round((PHeight - (5 * v)) / TekstHeight);
NumPages := 1;
// gather number of pages to print
while (NumPages * LinesOnPage) < oListView.Items.Count do
inc(NumPages);
// start
CurLine := 0;
for CurItem := 0 to oListView.Items.Count - 1 do
begin
if (CurLine > LinesOnPage) or (CurLine = 0) then
begin
if (CurLine > LinesOnPage) then Printer.NewPage;
CurLine := 1;
if Printer.PageNumber = NumPages then
begin
MoveTo(aCols[1], topMarg);
for i := 1 to iColumnCount - 1 do
begin
LineTo(aCols[i], TopMarg + (TekstHeight * (oListView.Items.Count - CurItem + 2)));
MoveTo(aCols[i + 1], topMarg);
end;
end
else
begin
// draw vertical lines between data
for i := 1 to iColumnCount - 1 do
begin
MoveTo(aCols[i], topMarg);
LineTo(aCols[i], TopMarg + (TekstHeight * (LinesOnPage + 1)));
end;
end;
Font.Style := [fsBold];
// print column headers
for i := 0 to iColumnCount - 1 do
begin
TextRect(Rect(aCols[i] + Round(0.1 * h), TopMarg - Round(0.1 * v), aCols[i + 1] - Round(0.1 * h)
, TopMarg + TekstHeight - Round(0.1 * v)), ((aCols[i + 1] - aCols[i]) div 2) +
aCols[i] - (TextWidth(oListview.Columns.Items[i].Caption) div 2),
TopMarg - Round(0.1 * v), oListview.Columns.Items[i].Caption);
//showmessage('print kolom: '+IntToStr(i));
end;
// draw horizontal line beneath column headers
MoveTo(aCols[0] - Round(0.1 * h), TopMarg + TekstHeight - Round(0.05 * v));
LineTo(aCols[iColumnCount] + Round(0.1 * h), TopMarg + TekstHeight - Round(0.05 * v));
// print date and page number
Font.Size := 8;
Font.Style := [];
TmpPos := (TextWidth('Date: ' + DateToStr(Date) + ' Page: ' +
IntToStr(Printer.PageNumber) + ' / ' + IntToStr(NumPages))) div 2;
TmpPos := PWidth - Round(1.5 * h) - (TmpPos * 2);
Font.Size := 8;
Font.Style := [];
TextOut(TmpPos, Round(0.5 * v), 'Date: ' + DateToStr(Date) +
' Page: ' + IntToStr(Printer.PageNumber) + ' / ' + IntToStr(NumPages));
// print report title
Font.Size := 18;
if TmpPos < ((PWidth + TextWidth(EditReport.Text)) div 2 + Round(0.75 * h)) then
TextOut((PWidth - TextWidth(EditReport.Text)) div 2, Round(1 * v), EditReport.Text)
else
TextOut(Round(3 * h), Round(1 * v), EditReport.Text);
Font.Size := 10;
Font.Style := [];
end;
CurRect.Top := TopMarg + (CurLine * TekstHeight);
CurRect.Bottom := TopMarg + ((CurLine + 1) * TekstHeight);
// print contents of Listview
for CurCol := -1 to iColumnCount - 2 do
begin
CurRect.Left := aCols[CurCol + 1] + Round(0.1 * h);
CurRect.Right := aCols[CurCol + 2] - Round(0.1 * h);
try
if CurCol = -1 then
CurStr := oListView.Items[CurItem].Caption
else
CurStr := oListView.Items[CurItem].SubItems[CurCol];
except
CurStr := '';
end;
CurLeft := CurRect.Left; // align left side
// write string in TextRect
TextRect(CurRect, CurLeft, CurRect.Top, CurStr);
end;
Inc(CurLine);
end;
end;
Printer.EndDoc;
end;
end;
|  |
