Imprimer sous tous les angles ... (Le retour)

[Thierry Nauze <ohmi at wanadoo dot fr>]

Bonjour,


Grâce à votre aide (et surtout grâce aux précisions d'Éric) j'ai pu  
faire ce que je voulais ...
Ce programme fonctionne à merveille sous MacOS X mais ...

 dim g as graphics
  dim p as printerSetup
  dim zoom as double

  p=New printerSetup

  p.MaxHorizontalResolution=-1
  p.MaxVerticalResolution=-1

  If p.PageSetupDialog then
    g=OpenPrinterDialog(p)
    zoom=p.HorizontalResolution/72
    if g<>nil then
      dim ss as new stringShape

      ss.text="Le petit chat est mort"
      ss.textSize=10*zoom
      ss.textFont="Arial"
      ss.rotation=45/57
      ss.fill=100
      ss.fillColor=&cFF000
      ss.X=500
      ss.Y=300

      g.drawObject ss,100,100
    end
  end

sous Windows, le texte est écrit dans un rectangle noir.

Quelqu'un a-t-il un remède ?

Merci d'avance.

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