[VBA-E]BeforePrint, ok. Mais, AfterPrint ?

Version imprimable

12/06/2007, 13h07
srame

[VBA-E]BeforePrint, ok. Mais, AfterPrint ?

Bonjour,

J'utilise la fonction "BeforePrint" qui m'est bien pratique pour faire une mise en page spécial. Mais mon problème c'est que après l'impression, la mise en page reste ce qui ne m'arrange pas. Pour le moment j'ai résolu mon problème d'une autre façon mais pas très pratique, celà m'oblige à changer d'onglet pour revenir à mon onglet.

Exite-t-il une solution qui serait du style "AfterPrint" ?Oui, je sais la fonction direct AfterPrint n'existe pas ( ou je ne l'ai jamais vu ).

Si quelqu'un à une solution, je suis preneur.

Merci beaucoup.

Srame
12/06/2007, 13h14
wilfried_42

bonjour scram

le seul moyen que j'utilise c'est de gérer l'impression du debut à la fin

Lancer soi meme l'impression par macro et ensuite tu traites comme tu veux

bon apres midi

Bonjour wilfried,

Sauf que mes modifications ne sont pas au niveau de l'impression elle-même, mais au niveau de ma feuille, Je cache des cellules pour en faire apparaitre d'autres.

Et je voudrais que après l'impression ma feuille redevienne normale.

Voici mon code d'impression :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim F As Worksheet, MaskLign
        For Each F In ThisWorkbook.Sheets
            If F.name Like "CHOUT*" Then
                MaskLign = "6:6"
                If F.name Like "*TNL*" Then MaskLign = "7:7"
                    F.Unprotect
                        F.Rows(MaskLign).EntireRow.Hidden = True
                        F.Range(MaskLign).Offset(1, 0).EntireRow.Hidden = False
                    F.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            End If
        Next
End Sub

Et mon code pour le retour à la normale :

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
MaskLign = "6:6"
    If ActiveSheet.name Like "*TNL*" Then MaskLign = "7:7"
        ActiveSheet.Unprotect
            ActiveSheet.Rows(MaskLign).EntireRow.Hidden = False
            ActiveSheet.Range(MaskLign).Offset(1, 0).EntireRow.Hidden = True
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Voilà, c'est peut-être un peu trop compliqué comme code, mais ça fonctionne super bien.

12/06/2007, 13h49
wilfried_42

re:

je ne t'ai pas dit de changer tes modules, je t'ai dit de controler l'impression

Au lieu de la lancer du menu, ou d'une icone, tu la lances d'un bouton

Worksheets("Imprim").printout
ta routine beforeprint se lance normalement
apres tu ecris ce que tu veux

cordialement