Problème macro zone d'impression

good57

XLDnaute Occasionnel
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.

Code:
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
 

Pièces jointes

  • Aperçu1.JPG
    Aperçu1.JPG
    69.7 KB · Affichages: 39
  • Edition facture.jpg
    Edition facture.jpg
    61.9 KB · Affichages: 40
  • Aperçu2.JPG
    Aperçu2.JPG
    59.7 KB · Affichages: 39

good57

XLDnaute Occasionnel
Re : Problème macro zone d'impression

Bonjour Mutzik,
Ca ne fonctionne pas :/

Erreur.jpg
 

Pièces jointes

  • Erreur.jpg
    Erreur.jpg
    50.4 KB · Affichages: 37
  • Erreur.jpg
    Erreur.jpg
    50.4 KB · Affichages: 43

mutzik

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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.
 

Discussions similaires

Réponses
7
Affichages
479
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 709
Messages
2 081 774
Membres
101 816
dernier inscrit
Jfrcs