Impression avec mise en page

[denis]

Bonjour à tous

J'ai fait une tite macro pour copier des colonnes différentes exp: a,c,f,r,x aprés elle se colle sur une nouvelle page mais la mise en forme ne marche pas j'ai bien le bon format mais les lignes reste a la même taille ( hauteur 15,75), dans une colonne j'ai du texte + ou - long les celulles on bien le format retour a la ligne auto.

(voir le fichier joint)

voila le code de la macro
Private Sub CmdRepasM_Click()
Worksheets("Liste").Select
Range("a8:a600,c8:c600,f8:f600,ah8:au600").Select
Range("a8").Activate
Selection.Copy
Sheets("tempRp").Select
Range("a8").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Range("B1").Select
Selection.Copy
Range("d9:k26").Select
Range("k26").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False

ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("A8:R26").Select
Selection.Clear
Worksheets("Liste").Activate
End Sub


si quelqu'un a une soluce

 

[denis]

re bonjour à tous

Aprés un bon creusage de tête voila la suite qui marche pas trop mal

Private Sub CmdRepasM_Click()
Worksheets("Liste").Select
Range("a8:a600,c8:c600,f8:f600,ah8:au600,aw8:aw600").Select
Range("a8").Activate
Selection.Copy
Sheets("tempRp").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection
.VerticalAlignment = xlCenter
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1").Select
Selection.Copy
Range("d9:k26").Select
Range("k26").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("a1").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("A8:R26").Select
Selection.Clear
Unload Userform7
End Sub

Merci a tous