Bonsoir,
Le 8 déc. 06 à 23:43, Eric Pousse a écrit :
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
Je n'arrive pas à récupérer le coef_zoom.
Où est l'erreur ?
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=10 ' p.maxHorizontalResolution/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=&c000000
ss.X=500
ss.Y=300
g.drawObject ss,100,100
end
end
Avec ça, l'impression est correcte ... sauf que le zoom a été fixé
arbitrairement et n'a pas pu être récupéré.
Le p.maxHorizontalResolution reste sur la valeur -1, ce qui donne
un zoom de -1/72 !
Merci pour toute aide qui puisse corriger ce hic, car l'impression
est correcte.
@+
--
Thierry NAUZE Saint-Denis de la Réunion