Discussion :

[JLuc01]

Bonjour,

J'ai une question assez general sur l'impression (Screen Display vs PrintPreview).
Je suppose que ce qu'on vois en PrintPreview est identique a ce qu'on imprime.
Par contre la zone selectionnee a l'ecran pour l'impression n'est pas toujours ce qu'on veut une fois imprime.
Je voudrais donc avoir une opinion sur ce qu'on peut faire dans ce domaine.

Comme je ne suis pas sure d'etre tres clair avec ma question, voici un example concret.

1- J'ai une zone que je veux imprimer: Range("E7:AJ" & i & ""), zone qui peut varier en fonction de la variable i.
La taille des 32 columns(E:AJ) est 2.82(38px) a multiplier par 32 columns sur mon ecran, correspondant a 21.6cm de long. Sur un autre ecran, c'est different.
Dans une cells (ou merged cells), j'utilise les proprietes WraptText et EntireRow.AutoFit.

2- Mon PrintPreview me donnera une page A4 de 18cm de large, la longueur/hauteur n'est pas un probleme ici.

Que puis-je faire pour avoir sur mon ecran la meme chose que sur mon impression (Print ou PrintPreview), si toutefois il existe une solution pas ultra complique?

Je recherche plus une direction, une opinion qu'un code tout fait.

Merci,
Jean-Luc

[jijie]

Je ne sais pas si c'est ce que tu souhaite, mais avec ceci tu auras toujours la même vu sur n'importe quel écran !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim LarGeur As String
 
LarGeur = "a1:M25" ' à adapter
Feuil1.ScrollArea = LarGeur
 
'** ici on active le zoom selon l'écran
Application.ScreenUpdating = False
Range(LarGeur).Select 'à préciser
ActiveWindow.Zoom = True
Range("a1").Select
 
 
End Sub

Par contre pour l'impression il serait mieux de faire modifier tes zones d'impression!