1 pièce(s) jointe(s)
Impression d'une TForm FireMonkey
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 :
Pièce jointe 209240
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:
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 ! :zoubi:
