Contributor: MARIA KARLSSON
{ Updated DELPHI.SWG on May 30, 1997 }> Nowadays everyone uses QuickReport.> But is there among You someone who did printouts without QuickReport?> I'd like to do it. But I don't know how to get the default printers> resolution.> The Printer.PageHeight and PageWidth tells me the size size of a page in> pixels, but it could be A4, or Fanfold, or even A3 with a poor resolution.> I'm looking for something like Printer.PixelsPerInch.> Can somebody help me with this?> Thanks in advance.>> Laszlo Kovacs> Budapest, Hungary>> mailto:kovacs_l@mail.elender.hu> mailto:kovacsl@usa.net
When I started using Delphi 1, I had a big struggle with ReportSmith and
gave it up. I did all my printing with an object called TPrinto. I gave
the object some nice methods to ease my printing, The following
procedure uses PixelsPerInch. I like to use centimeters so I translated
the Inches to cm's.
procedure TPrinto.StartDoc;
begin
pageNo := 0;
Printer.Canvas.Font.Name := 'MS SansSerif';
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Pen.width := 4;
Printer.Canvas.TextOut(0, 0, '');
TextHeight := Abs(Printer.Canvas.Font.Height);
LinesPerPage := Printer.PageHeight div (TextHeight + 4);
cm := Round(Printer.Canvas.Font.PixelsPerInch / 2.54);
LeftMargin := Round(1.5 * cm);
CurrentLine := 0;
end;