Re: Imprimer sous tous les angles ...

[Thierry Nauze <ohmi at wanadoo dot fr>]

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