Bonsoir,
En début de procédure d'impression, pensez à utiliser l'imprimante à
son maximum avec:
MyPSetup.MaxHorizontalResolution = -1
MyPSetup.MaxVerticalResolution = -1
MyPage = OpenPrinterDialog(MyPSetup)
C'est peut-être ce que vous aviez oublié.
puis récupérer le coefficient de zoom correspondant à la résolution
de l'imprimante avec
Coef_Zoom = MyPSetup.HorizontalResolution / 72
puis dessinez le texte :
objStr = New StringShape
objStr.TextSize = mataille * Coef_Zoom <= à ne pas oublier
objStr.TextFont = Font
objStr.Rotation = Rotation
objStr.Fill = 100.0
objStr.FillColor = ...
objStr.bold = ...
objStr.Italic = ...
objStr.Underline = ...
LPict = NewPicture(largeur, hauteur, 16) <= largeur et hauteur
doivent calculée en tenant compte de Coef_Zoom
LPict.Graphics.UseOldRenderer = Fl_UseOldRenderer
objStr.Text = montexte
objStr.x = ...
objStr.y = ...
if LPict <> nil then
#if TargetWin32 then
if Fl_Imprimante = False then
LPict.transparent = 1
end if
#else
LPict.transparent = 1
#endif
LPict.Graphics.DrawObject objStr
g.DrawPicture LPict, x, y
Voilà
Eric POUSSE
http://www.realcadd.com/
Le 8 déc. 06 à 17:43, Thierry Nauze a écrit :
Le 8 déc. 06 à 20:06, Eric Pousse a écrit :
Bonjour,
Faites un essai avec RealCADD.
Si le résultat est meilleur que ce que vous avez, je vous
indiquerais ma méthode.
Rien de comparable. Absolument rien.
Là, c'est bon et même plus.
Alors, je veux bien votre méthode.
Merci d'avance.
--
Thierry NAUZE Saint-Denis de la Réunion
|