How do I include this procedure in my progrram?
Jesus Reyes wrote:
--- El vie 27-nov-09, Terry A. Haimann <[email protected]> escribió:
De:: Terry A. Haimann <[email protected]>
Asunto: Re: [Lazarus] Paper Size
A: "Lazarus mailing list" <[email protected]>
Fecha: viernes 27 de noviembre de 2009, 22:55
Maybe I am not being clear.
I have a report I am printing. It has logic similar to:
PageCnt := 1; Cnt := 0;
Query.First
Repeat
Printer.BeginDoc;
Printer.Canvas.Pen.Color := 0;
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.Size := 8;
LineCnt := 1;
Printer.Canvas.TextOut(1, KKTop, 'Heading Line);
LineCnt := 3;
Repeat
Line := Query.Field1;
Printer.Canvas.TextOut(1, LineCnt * KKLineSize, Line);
DatabaseForm.Query.Next;
Until ((LineCnt > KKMaxLines) or (Query.Eof));
Printer.EndDoc;
Until Query.Eof;
The problem is that it starts to print a quarter of the
page down. I am running Fedora 10 and Lazarus 0.9.26.2
The values for KKTop and KKLineSize must be calculated according to printer
resolution, take a look at the example in
lazarus/components/printers/samples/dialogs.
Jesus Reyes A.
Encuentra las mejores recetas en Yahoo! Cocina.
http://mx.mujer.yahoo.com/cocina/
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
