Du laver en knap på din form, og tilføjer en TPrintDialog (Se Dialog fanen. Dernæst klikker du på knappen og skriver følgende:
void __fastcal TForm1::Button1Click(TObject *Sender) { if (PrintDialog1->Execute()) Print(); }
Print() er her en aktivering af formens egen Print() metode, som simpelthen udskriver den aktuelle form m/indhold. Vær opmærksom på at du evt. skal rette på Formens 'PrintScale' property for at udskriften bliver stor nok til at du kan se den på printeren.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.