Imprimer au millimètre près

uses printers;

procedure TForm1.Button1Click(Sender: TObject);
begin
printer.BeginDoc;
SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
with printer.Canvas do
begin
//font hauteur 5 mm
Font.Height := 50;
Font.Name := 'Verdana';
TextOut(250, -110, 'SwissDelphiCenter');
TextOut(250, -180, 'http://www.swissdelphicenter.ch');
MoveTo(250, -240);
//dessine une ligne de 7,5 cm
LineTo(1000, -240);
end;
printer.EndDoc;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour11/07/2008
VisualisationVu 2030 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur