Problème macro zone d'impression

[good57]

Bonjour,

Je souhaite faire un aperçu avant d'impression d'une feuille Excel (d'une facture plus précisément)
Pour cela, j'ai une macro qui me supprime certaines lignes (lignes qui ne sont pas utilisés dans la facture) et qui m'affiche un aperçu avant impression.
Le souci c'est que sur la première page de mon aperçu avant impression, il y a un gros blanc sur le bas de la page, puis la facture continue sur la seconde page sans aucune autre anomalie.

Je n'arrive pas à trouver d'où vient de gros blanc sur la première page.

En PJ : une capture d'écran de l'aperçu avant impression + capture d'écran de ma feuille excel avant de lancer la macro.

Je ne peux pas mettre le fichier en PJ car beaucoup trop lourd et bcp de références à d'autres feuilles ...

Et voici la macro qui me permet d'afficher l'aperçu avant impression.

Sub MWDruckenFertigeRechnung()

     'Oter la protection de la feuille
ActiveSheet.Unprotect
     
     'Allège la macro
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

     'Demasquer toutes les lignes
Rows("1:600").Select
Selection.EntireRow.Hidden = False

     'Masquer les lignes vides
For j = 27 To 600
If Range("b" & j).Value = "" Then
Rows(j).Select
Selection.EntireRow.Hidden = True
End If
Next j
 
 Range("J2").Select
 
 
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
 
 
     'Protéger la feuille (autorise l'ajustement de la hauteur des lignes)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True, AllowFormattingCells:=True


     'Selectionner zone d'impression et lancer aperçu avant impression
ActiveSheet.PageSetup.PrintArea = "$B$1:$I$552"
ActiveWindow.SelectedSheets.PrintPreview

End Sub

 

[mutzik]

Re : Problème macro zone d'impression

bonjour

ActiveSheet.PageSetup.PrintArea = "$B$1:$I$552"
print area : range("$B$1:$I$552").SpecialCells(xlCellTypeVisible).address

à tester

 

[good57]

Re : Problème macro zone d'impression

Bonjour Mutzik,
Ca ne fonctionne pas :/

 

[mutzik]

Re : Problème macro zone d'impression

re, je me suis certainement mal exprimé

au lieu de
ActiveSheet.PageSetup.PrintArea = "$B$1:$I$552"
tu mets
ActiveSheet.PageSetup.PrintArea = range("$B$1:$I$552").SpecialCells(xlCellTypeVisible).address

à tester

 

[good57]

Re : Problème macro zone d'impression

Merci,
Mais j'ai fait différemment ...
En fait j'avais un saut de page qui est arrivé là je ne sais pas comment. Il suffisait juste de le virer 🙂

Merci quand même !

 

[mutzik]

Re : Problème macro zone d'impression

re, pour mon info, as-tu testé ma solution ?

 

[good57]

Re : Problème macro zone d'impression

Je vais le faire et je te dis ce qu'il en est.

 

[good57]

Re : Problème macro zone d'impression

Eh non, ca ne fonctionne pas.
Au lieu de faire 5 pages, ça m'en fait 19 !
Sur chaque page, il n'y a que 4 ou 5 lignes qui sont imprimées et ensuite ça passe à la page suivante.

 

[mutzik]

Re : Problème macro zone d'impression

merci pour le retour d'info