FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 929, dernière mise à jour : 31 décembre 2023 Ajouter une question

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez

Sommaire →Générateurs d'états →Quick Report (1)

Comment imprimer dans un formulaire avec QuickReport ?

Comment imprimer dans un formulaire avec QuickReport ?

1) Imprimer une lettre à une certaine position

Cette fonction permet d'imprimer une lettre (Par exemple : 'X' pour une case à cocher) à une certaine position exprimée en millimètres sur la feuille.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
Procedure EcrireLettre(Lettre:char; LeftMM:extended; TopMM:extended; Parent:TWinControl);  
var  
QRLettre : TQRLabel;  
begin  
  QRLettre := TQRLabel.Create(nil);  
  QRLettre.Caption:=Lettre;  
  QRLettre.Parent:=Parent;  
  QRLettre.Size.Left:= LeftMM;  
  QRLettre.Size.Top:= TopMM;  
end;

Exemple : EcrireLettre('X', 50, 50, QRBand1); écrit la lettre X a 5cm en haut et à gauche de la bordure du QRBand1.

2) Imprimer des mots

Cette fonction permet d'imprimer un ou des mots à un certaine position exprimée en millimètres sur la feuille tout en réglant l'espacement des caractères (Pour un formulaire !!)

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure EcrireMot(Mot:string; LeftDebutMM:extended; EcartementLettreMM:extended; TopMotMM:extended; Parent:TWinControl);  
var  
Lettre : Array of TQRLabel;  
i : integer;  
begin  
  SetLength(Lettre,Length(Mot)+1);  
  for i:=1 to Length(Mot) do begin  
    Lettre[i] := TQRLabel.Create(nil);  
    Lettre[i].Caption:=copy(Mot,i,1);  
    Lettre[i].Parent:=Parent;  
    Lettre[i].Size.Left:= LeftDebutMM+(EcartementLettreMM*i);  
    Lettre[i].Size.Top:= TopMotMM;  
  end;  
end;

Exemple : EcrireMot('ESSAI',5,5,20,QRBand2) écrit le mot ESSAI à 5 mm de la bordure gauche et à 2cm du haut de la bordure du QRBand2 et les caractères auront un espacement de 5mm entre leurs centres.

Mis à jour le 24 janvier 2014 jmjmjm

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.