Bonjour,
Il faut passer par l'intermédiaire d'une image.
Eric POUSSE
http://www.realcadd.com/
Le 20 déc. 06 à 14:37, Thierry Nauze a écrit :
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
|