Bonjour,

Je n'avais encore jamais utilisé le TPageSetupDialog et là ce fut l'occasion.

Mais je dois systématiquement louper une marche car malgré mes recherches, ça ne prend toujours pas en compte les marges

Par exemple un bout de code dans lequel deux paramètres saisis dans le PageSetupDialog ne sont aucunement prise en compte :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TForm1.btnPrintPSDClick(Sender: TObject);
begin
   PageSetupDialog1.Execute;
   with Printer do
   begin
     BeginDoc;
     Canvas.TextOut(PageSetupDialog1.MarginLeft, PageSetupDialog1.MarginTop, 'Ici mon texte à imprimer...');
     EndDoc;
   end;
end;
Je pensais qu'un simple appel à la méthode Exécute du PageSetupDialog suffirait afin de régler tout ça.
D'ailleurs pas grand chose en documentation sur ce compo, encore bien moins en code.

Je suis prenneur de tout conseil, merci ;-)