probleme d'impression avec excel

[loupi]

Bonjour à tous,
J'ai un problème d'impression lorque je transfère le fichier ci-joint sur un autre ordinateur.
celui-ci s'imprime sur une page sur le premier ordi et sur 2 pages sur l'autre .
C'est très génant car c'est un fichier qui doit etre donné a des clients pour impression avec le formatage sur une page.
Je séche depuis ce matin je ne comprend pas ce qui peut changer entre les 2 ordinateurs, je pensais que le formatage etait indépendant de l'ordi, avez vous une idée?
merci d'avance
cdt
Maurice

 

[Robert]

Salut Maurice, salut le forum,

Je suis pas expert mais je travaille en P.A.O. et j'ai souvent rencontré ce problème avec des logociels différents. Le problème vient de l'imprimante par défaut paramétrée dans Windows. Tu auras beau faire le nécessaire pour que l'impression cadre sur une page, ce même fichier, ouvert par quelqu'un qui aura une imprimante par déffaut différente, risque de s'imprimer sur deux. Essaie de toujours garder une marge de sécurité. Par exemple si tu as obtenu l'impression sur une seule page en réduisant à 98%, réduis à 93% pour que d'autre imprimantes, moins performantes que la tienne, le fassent aussi sur une seule feuille. Sinon, si ton fichier est distribué à tes client juste pour impression, tu peux toujours le convertir en PDF.

Mais, vu l'incroyable niveau de connaissance de nos stars de ce forum, ne désespère pas d'avoir une solution plus technique que ma simple constatation...

À plus,

Robert

 

[Gérard DEZAMIS]

Bonjour Loupi

Ce qui peut changer entre les deux ordinateurs :
Peut-être rien .....
Entre les deux imprimantes : il faut vérifier ....
Les zones d'impression sont différentes suivant les modèles et cela est souvent la cause de ce type de problème.
Le mieux à mon humble avis est de faire une petite macro qui déclenche l'impression et celle-ci prendra en compte que tu veux simplement une page en hauteur et une page en largeur.

dans la macro : .FitToPagesWide = 1
.FitToPagesTall = 1

ce qui devrait donner :

Sub ImprimerSurUnePage()
'
Application.ScreenUpdating = False
Range("A1:I53").Select
With ActiveSheet.PageSetup
.LeftFooter = "&D"
.CenterFooter = "latecoere_sap4390_V5.xls"
.RightFooter = "Page &P\&P"
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Selection.PrintOut Copies:=1, Preview:=False
Application.ScreenUpdating = True
End Sub

@+
GD

 

[loupi]

Salut Robert,
et merci de votre réponse, elle me satisfait tout a fait,
j'ai reduit la mise en page a 95% et je n'ai plus de problème sur le second ordi,
a 97% non plus mais je vais suivre vos conseils et garder un peu de marge, au cas ou,
il n'y a rien de plus enervant que de recevoir un document mal paginé,

merci encore
Maurice

 

[Robert]

Re Maurice, Salut Gérard, le forum,


Je profite de ce fil pour remercier Gérard et sa leçon sur les codes liés à l'impression. C'est copié, collé et gardé soigneusement au chaud...

À plus,

Robert