code pour impression

Version imprimable

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:

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

Bonjour,

Peut-être (à adapter) :

Code:

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

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:

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.