Bonjour,

J'utilise XE10 et FastReport FMX. Je crée une application multi-périphérique vide et pose un composant frxReport. En compilant, j'ai cette boîte de dialogue qui s'affiche :

Nom : FMX.png
Affichages : 315
Taille : 25,3 Ko

Vu que je bloque à ce niveau, je me suis rabattu sur une autre solution : utilisation de l'objet FMX.Printer.TPrinter sauf que je ne sais pas comment imprimer du texte (la méthode TextOutA n'existe pas).

En gros, sur ma TForm, j'ai des TLabel, TEdit, TStringGrid à imprimer. J'ai trouvé ce petit code permettant d'imprimer une image :
Code C++ : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TMyForm::PrintButtonClick(TObject *Sender)
{
  TRectF SrcRect, DestRect;
  TPrinter *Printer = Printer;
 
  Printer->ActivePrinter->SelectDPI(1200, 1200);
 
  Printer->Canvas->Fill->Color = claBlack;
  Printer->Canvas->Fill->Kind = TBrushKind(1);
 
 
  Printer->BeginDoc();
 
  SrcRect = Image1->LocalRect;
  DestRect = TRectF(0, 0, Printer->PageWidth, Printer->PageHeight);
 
  Printer->Canvas->DrawBitmap(Image1->Bitmap, SrcRect, DestRect, 1);
 
  Printer->EndDoc();
}
Si vous avez des idées, je suis preneur !