Ajuster les Marges a l'impréssion

[BERRACHED said]

Salut les Amis !
voila j'ai un p'tis soucis avec une macro d'impression qui traite sur tout les sous totaux dont je remercie l'auteur seulement en l'utilisant il 'y a la dernière ligne qui contiens le Total général elle existe mais elle ne parait pas a l'aperçu avant impression et mémé a l'édition je vous remet le code s'il y a quelqu'un qui peut lui apporter un correctif je vous remercie d'avance

Sub SautPage4()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("tempo").Delete
Sheets("CONSULT").Copy Before:=Sheets("SFIX")
ActiveSheet.Name = "tempo"
ActiveSheet.ResetAllPageBreaks ' raz
Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
h = 45 ' hauteur de page
[a2].Select
Do While ActiveCell <> ""
Lig = 0
totPage = 0
Do While Lig < h And ActiveCell <> ""
totPage = totPage + ActiveCell.Offset(0, 5)
totGéné = totGéné + ActiveCell.Offset(0, 5)
Selection.Resize(1, 7).Interior.ColorIndex = IIf(Lig Mod 2 = 1, 2, 36)
Lig = Lig + 1
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Insert
ActiveCell = "TOTAUX"
ActiveCell.Offset(0, 5) = Format(totPage, "#,##0.00")
ActiveCell.Offset(0, 6) = Format(totGéné, "#,##0.00")
Selection.Resize(1, 7).Font.Bold = True
Selection.Resize(1, 7).Interior.ColorIndex = 15
ActiveCell.Offset(1, 0).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Loop
Unload UserForm3
[a2].Select
ActiveSheet.PrintPreview
End Sub

 

[Roland_M]

Re : Ajuster les Marges a l'impréssion

bonsoir à tous
Salut Said

voir peut être à cet endroit !?
'---------------------------------
Do While ActiveCell <> ""
Lig = 0 <<<<<<<<<<<<< ici essayer = 1 !?
totPage = 0
'-----------------------------------
sinon voir >>>>>> h = 45 ' hauteur de page là ESSAYER = 46 !?

Roland

 

[Cousinhub]

Re : Ajuster les Marges a l'impréssion

Bonsoir,

En fin de ta procédure Saut Page4()

rajoutes ces quelques lignes :

......
[COLOR="Red"]derlig = [A65000].End(xlUp).Row
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintArea = "$A$1:$G$" & derlig
    End With[/COLOR]
  ActiveSheet.PrintPreview
End Sub

Tu auras en plus les titres, si tu le veux, sinon supprime la ligne PrintTitle.....


Edit : pour ceux qui ne comprendraient pas, le fichier origine est sur ce FIL

 

[BERRACHED said]

Re : Ajuster les Marges a l'impréssion

Salut Roland !
Merci pour la réponse j'ai tester vos probabilités mais le problème persiste c'est toujours la dernier page qui ne fait pas ressortir le totaux malgré qu'ils existent ils sont visible a la feuille "Tempo"

Merci j'attend peut être une solution

 

[BERRACHED said]

Re : Ajuster les Marges a l'impréssion

Salut bhbh !

eh ben mon vieux tu ne rate jamais toujours au premier coup ! Chapeau Impécable ton truc ça marche comme sur des roulette

merci bhbh et encore merci