Désolé, je n'avais pas bien regardé votre code mais c'est normal,
maxHorizontalResolution est égal à -1
ce sont HorizontalResolution et VerticalResolution qui changent
donc comme dans mon code initial il faut écrire :
Coef_Zoom = MyPSetup.HorizontalResolution / 72
Vous avez sans doute écrit
Coef_Zoom = MyPSetup.maxHorizontalResolution / 72
et il faut bien mettre :
MyPSetup.MaxHorizontalResolution = -1
MyPSetup.MaxVerticalResolution = -1
juste avant
MyPage = OpenPrinterDialog(MyPSetup)
Voilà.
Eric Pousse
PB G4 15", 1.67GHz, OSX 10.4.7, RB 5.5.5 + 2006
http://www.realcadd.com/
Le 11 déc. 06 à 02:48, Thierry Nauze a écrit :
Bonjour,
au réveil :
Le 11 déc. 06 à 01:22, Eric Pousse a écrit :
Bonsoir,
Essayez en mettant
p.MaxHorizontalResolution=-1
p.MaxVerticalResolution=-1
après
If p.PageSetupDialog then
Bonne nuit !
Rien ne marche.
Quel que soit l'endroit où je place ces deux lignes, j'obtiens
systématiquement -1 :
p.MaxHorizontalResolution=-1
p.MaxVerticalResolution=-1
If p.PageSetupDialog then
g=OpenPrinterDialog(p)
msgBox str(p.maxHorizontalResolution)
...
end
If p.PageSetupDialog then
p.MaxHorizontalResolution=-1
p.MaxVerticalResolution=-1
g=OpenPrinterDialog(p)
msgBox str(p.maxHorizontalResolution)
...
end
If p.PageSetupDialog then
g=OpenPrinterDialog(p)
p.MaxHorizontalResolution=-1
p.MaxVerticalResolution=-1
msgBox str(p.maxHorizontalResolution)
...
end
Mystères de l'informatique !!!
J'ai lu et relu l'aide : votre solution me semble la bonne.
Mais pourquoi ça ne marche pas chez-moi ?
Je vais encore faire des essais : il faut bien trouver une solution
car avec un 'zoom' correct l'impression peut être correcte.
Merci
@+
--
Thierry NAUZE Saint-Denis de la Réunion
|