Discussion :

[stimbo]

bonjour a tous
j'ai un form dans le quel ya une tpaintbox qui contient des dessins a savoir des cercles je voudrais que mon programme puisse imprimer cette image
commenrt faire?
j'espere que je suis clair
merci d'avance !!!

[gg2laba]

ca peut peutetre t'aider : (dans l'aide builder)

Cet exemple utilise un bouton et un mémo sur une fiche. Lorsque l'utilisateur clique sur le bouton, le contenu du mémo est imprimé avec une bordure de 200 pixels autour de la page. Pour exécuter cet exemple, inclure <Printers.hpp> dans votre fichier unité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
  TPrinter Prntr = Printer();
  TRect r = Rect(200,200,Prntr->PageWidth - 200,Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
  Prntr->EndDoc();
}

[henderson]

Salut !

En passant par une Form (pas forcément visible) dont on fixe BorderStyle à bsNone.
Fixer les dimensions de la Form sur celles du PaintBox.
Copier le contenu du PaintBox sur la Form (CopyRect) et utiliser la méthode
...Print();

A plus !