Discussion :

[homerlehamster]

Bonjour,

Je suis en train de créer une macro d'impression automatique sur Excel-Vba, cette macro calcule la largeur totale (grâce à la propriété "column.width") de la plage à imprimer, puis en fonction de cette largeur totale, la macro calculera le zoom ideal pour obtenir une impression "optimisée".

Le problème c'est que j'arrive pas à trouver la formule pour calculer le zoom idéal en fonction de la largeur de la plage.

Pour une largeur de 614.02, j'ai manuellement trouvé que le zoom ideal d'impression était de 59% en A3.

Pour une largeur de 467.31, le zoom idéal est de 107% en A3

Soit x le nombre cherché


614.02 = 0.59x
donc x = 614.02/0.59 = 1040.71

467.31 = 1.07x
donc x = 467.31/1.07 = 436.73

on voit bien que les 2 "x" ont des valeurs différentes

s'il y a des matheux ici, savez-vous comment calculer ce "zoom idéal" ?

D'avance merci à ceux qui m'aideront

Homer

[patricktoulon]

Bonjour

Peut-être devrais-tu commencer a mater toi aussi.

Il n'y a pas besoins de calculer le facteur de zoom pour optimiser une impression
pleine page.

Tout d'abords as-tu essayé d'imprimer en enregistrant avec l'enregistreur de macros et de décortiquer le code ??????

au plaisir

[thom07lamy]

Salut j'ai un bout de code compatible 2010 qui donne un début de solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim nbPagesAuto As Integer 'Variables pour optimiser le zoom
Dim nbPagesZoom As Integer
Dim zoomAuto As Integer
Dim zoomActuel As Integer
Dim zoomOptimise As Integer
 
'On optimise le zoom
zoomOptimise = 0
nbPagesAuto = ThisWorkbook.Sheets("DAS").PageSetup.Pages.Count
zoomAuto = ThisWorkbook.Sheets("DAS").PageSetup.Zoom
zoomActuel = zoomAuto
While zoomOptimise = 0 And zoomActuel < 400
    zoomActuel = zoomActuel + 1
    ThisWorkbook.Sheets("DAS").PageSetup.Zoom = zoomActuel
    DoEvents
    nbPagesZoom = ThisWorkbook.Sheets("DAS").PageSetup.Pages.Count
    If nbPagesZoom > nbPagesAuto Then
        zoomOptimise = zoomActuel - 1
    End If
Wend
ThisWorkbook.Sheets("DAS").PageSetup.Zoom = zoomOptimise

Par contre, je ne m'explique pas pourquoi, mais dans certains cas de figures, la boucle va un peu trop loin. (Ex: ma valeur de zoom optimisé est à 74%, mais la boucle me renvoit 75%)
Ce que je ne m'explique pas non plus, c'est que le fait d'être en débug a un impact sur la gestion de l'aperçu avant impression. Mais bon, ça pourra peut-être servir à quelqu'un.

[thom07lamy]

En cherchant, j'ai fini par comprendre:
il faut forcer le recalcul de l'aperçu avant impression pour que cela fonctionne proprement. Voici le code modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim nbPagesAuto As Integer 'Variables pour optimiser le zoom
Dim nbPagesZoom As Integer
Dim zoomAuto As Integer
Dim zoomActuel As Integer
Dim zoomOptimise As Integer
 
'On optimise le zoom
Application.PrintCommunication = False
zoomOptimise = 0
nbPagesAuto = ThisWorkbook.Sheets("DAS").PageSetup.Pages.Count
zoomAuto = ThisWorkbook.Sheets("DAS").PageSetup.Zoom
zoomActuel = zoomAuto
While zoomOptimise = 0 And zoomActuel < 400
    zoomActuel = zoomActuel + 1
    ThisWorkbook.Sheets("DAS").PageSetup.Zoom = zoomActuel
    Application.PrintCommunication = True
    Application.PrintCommunication = False
    nbPagesZoom = ThisWorkbook.Sheets("DAS").PageSetup.Pages.Count
    If nbPagesZoom > nbPagesAuto Then
        zoomOptimise = zoomActuel - 1
    End If
Wend
ThisWorkbook.Sheets("DAS").PageSetup.Zoom = zoomOptimise 
Application.PrintCommunication = True

Les lignes Application.PrintCommunication sont très importantes, sans ça la boucle fonctionne de manière aléatoire, voire pas du tout...