Print Doc!
This Code
//Draw in to image
Image1.Canvas.font.name:='Verdana';
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.font.size:=12;
Image1.Canvas.font.Bold:=True;
Image1.Canvas.TextOut(45,60,CODICE.TEXT);
Image1.Canvas.Font.Bold:=False;
Image1.Canvas.Font.Size := 10;
Image1.Canvas.TextOut(50,83,tCognome.TEXT);
Image1.Canvas.TextOut(41,98,tNome.TEXT);
Image1.Canvas.TextOut(282,98,tSesso.TEXT);
Image1.Canvas.TextOut(52,115,tComune.TEXT);
Image1.Canvas.TextOut(50,137,tPv.Text);
Image1.Canvas.TextOut(60,155,DataNascita.Text);
{$ifdef Unix}
//showmessage('sei su unix');
{$ifdef Darwin}
//Versione Mac OSX Leopard
Rect.Top:=10;
Rect.Left:=10;
Rect.Right:=250;
Rect.Bottom:=150;
{$else}
//Versione Linux
Rect.Top:=10;
Rect.Left:=10;
Rect.Right:=2000;
Rect.Bottom:=1200;
{$endif}
{$endif}
{$ifdef win32}
//Versione Windows
Rect.Top:=10;
Rect.Left:=10;
Rect.Right:=2000;
Rect.Bottom:=1200;
{$endif}
Printer.Title := 'Stampa Codice Fiscale LazCF 2';
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect, Image1.Picture.Bitmap);
Printer.EndDoc;