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 :
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 :
Si vous avez des idées, je suis preneur !
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(); }
Partager