Re: Imprimer sous tous les angles ...

[Thierry Nauze <ohmi at wanadoo dot fr>]

Le 8 déc. 06 à 16:19, antoine cretaux a écrit :

> il faut utiliser le drawobjet et traiter lettre par lettre
Même lettre par lettre ce n'est pas glorieux !

  Dim ss As new StringShape

  ss.Text = "A"
  ss.TextFont = "Arial"

  ss.TextSize =10
  ss.Rotation = 45 / 57.295779578552
  g.DrawObject ss,200,300

  ss.TextSize =48
  ss.Rotation = -45 / 57.295779578552
  g.DrawObject ss,300,300

  ss.TextSize =10
  ss.Rotation = 0
  g.DrawObject ss,300,400

Des trois exemples, seul le dernier est présentable (correct).

Apparemment, ce n'est pas demain la veille que ce sera possible avec RB.

Encore merci;

--
Thierry NAUZE        Saint-Denis de la Réunion