Réponse acceptée !
Voila la fonction pour imprimer
void __fastcall TForm1::imprimeClick(TObject *Sender)
{
TPrinter *imprim = Printer();
if(DebutImprime->Execute())
{
imprim->BeginDoc();
imprim->Canvas->CopyRect( TRect(0,0,Image1->Width * 6, Image1->Height * 6), Image1->Canvas, TRect(0,0,Image1->Width, Image1->Height));
imprim->EndDoc();
}
}
elle n'est pas encore parfaite car il reste une petite différence entre la taille à l'écran et la taille imprimée... mais elle permet d'avoir une base de départ pour l'impression d'image
Eagles Eyes
