Discussion :

[jacfld49]

Bonjour le forum,

voici mon code qui me sert à imprimer les 3 premières pages mais j'aurais voulu savoir comment l'améliorer car suivant le nombres de séries que j'ai dans mon fichier, il se peut que je n'ai qu'une seule page ou bien 2 à imprimer et bien sur maxi 3 comme dans mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Impression_pour_Juges()
'
' Impression_pour_Juges Macro
'
 
'
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1
    Range("E6").Select
End Sub

merci
jacky

[Invité]

Bonjour,

Peut-être (à adapter) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A1").Select
 
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[jacfld49]

Bonsoir le forum,jacques_jean,

je n'ai pas réussi à adapter ton code alors j'ai refais un code avec l'enregistreur de macro et cela à l'air de fonctionner pour le moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ImpressionPourJuges()
'
' ImpressionPourJuges Macro
'
 
'
    Columns("F:F").Select
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SmallScroll Down:=30
    Rows("45:45").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SmallScroll Down:=42
    Rows("89:89").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SmallScroll Down:=27
    Rows("113:113").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    ActiveWindow.SmallScroll Down:=-129
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1
    Range("F13").Select
End Sub

on peut être l'améliorer??
Merci et je vous tiens au courant si j'ai un bug ou bien s'il m'imprime une page vide.