Hi Christian!
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf
No just printing a few lines.
Thanks I'll keep my searches.
>>>>>>>>>>>>>>>
Here is a routine I use when I want to print directly to a printer:
//This is a partial file. You must add printers to your uses clause.
//Button1click procedure has the print routine.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,printers, StdCtrls;
. . .
procedure TForm1.Button1Click(Sender: TObject);
Var
I : Integer ;
begin
with Printer do
begin
BeginDoc;
Canvas.font.size := 12;
For I:= 0 to 8 do Canvas.textout(I*572,I*572,IntToStr(I));
EndDoc;
end;
end;
....
*****************************************************
The printline shows the X and Y coordinates and then thestring you want
printed:
Canvas.textout(X,Y,"This is your string");
To change the measurement unit to Millimeters use this line:
SetMapMode(Printer.Handle,MM_LOMETRIC);
This changes the numbers from Pixels to Millimeters. Which is easier to
use.
Hope this helps!
Tom Nesler
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12hghpshp/M=362329.6886308.7839368.1510227/D=groups/S=1705115362:TM/Y=YAHOO/EXP=1123095197/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</a>.</font>
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
