masquer et imprimer

Version imprimable

masquer et imprimer

bonjour
je souhaite masquer une colonne avant d'imprimer et ensuite l'afficher.
pour cela jai fait les procedures suivante, mais exel imprime non pas apres la fin de la procedure "BEFOREPRINT", mais apres le "WORKSHEET"

dans le thisworbook :

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0 
    Range("A1").Value = "1"
   Application.ScreenUpdating = True
End If
End Sub

dans la feuille:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Activate()
   Application.ScreenUpdating = False
Columns("C:C").ColumnWidth = 11.14
   Application.ScreenUpdating = True
End Sub
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellChange As Range
Set CellChange = Range("A1")
If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then
If CellChange = "1" Then
 Application.ScreenUpdating = False
CellChange = ""
Sheets("acceuil").Activate
Sheets("DALLAS").Activate
 Application.ScreenUpdating = True
End If
End If
 
End Sub

Bonjour,

Adapte cette macro. L'instruction :

Code:

Cancel = True

annule l'instruction d'impression. Il faut donc refaire l'impression.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0
    Range("A1").Value = "1"
    Cancel = True
    ActiveSheet.PrintOut
    Columns("C:C").ColumnWidth = 10.71
   Application.ScreenUpdating = True
End If
End Sub

15/03/2013, 15h06
olivier-tig

re

En fait j'avais deja essayer cette solution qui ne fontionne pas car " cancel =true" annule la foction BEFOREPRINT dans son entier. Si on ne le met pas, la procedure va imprimer 2 fois mais sans masquer la colonne, puisqu'on la masquer et reafficher avant impression.

Exact. Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If ActiveSheet.Range("B2").Value = "CLOTURE DALLAS" Then
     Application.ScreenUpdating = False
    Columns("C:C").ColumnWidth = 0
    Range("A1").Value = "1"
    Cancel = True
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    Columns("C:C").ColumnWidth = 10.71
   Application.ScreenUpdating = True
End If
End Sub

la ligne 8, à adapter ne re-provoque pas le déclenchement de la procédure.

15/03/2013, 15h23
olivier-tig

re

Ca foctionne correctement merci