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