Impression en pdf de plusieurs pages

**kazannova** · 04/10/2008, 13h37

Bonjour

J'ai besoin de votre aide et merci d'avance

Ce code ne m'imprime que la dernière selection :-(

Je veux que le code m'imprime toutes les zonnes selectionnée dans un seul fichier pdf

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub pdftv()
 
    Sheets("IR9000COUV").Select
    Range("A1:R60").Select
 
    Sheets("PERSONNEACHARGE").Select
    Range("A1:H60").Select
 
    Sheets("REVENUFORFITAIRE").Select
    Range("A1:X60").Select
 
    Sheets("REVENUPROFESSIONNEL").Select
    Range("A1:E49").Select
 
    Sheets("REVENUSALARIAL").Select
    Range("A1:N55").Select
 
    Sheets("REVENUETRANGER").Select
    Range("A1:D46").Select
 
    Sheets("REVENUFONCIER").Select
    Range("A1:AA39").Select
 
    Sheets("REVENUAGRICOL").Select
    Range("A1:X37").Select
 
    Sheets("REVENUNETTAXABLE").Select
    Range("A1:J59").Select
 
    Sheets("IRVERSO").Select
    Range("A1:A22").Select
 
    Sheets("IRRECU").Select
    Range("A1:R50").Select
 
 
 
    Selection.PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
 
End Sub

**fring** · 04/10/2008, 13h51

Bonjour,

Essaie comme ceci en définissant les zones d'impression

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
Sub pdftv()
 
    Sheets("IR9000COUV").PageSetup.PrintArea = "A1:R60"
    Sheets("PERSONNEACHARGE").PageSetup.PrintArea = "A1:H60"
    Sheets("REVENUFORFITAIRE").PageSetup.PrintArea = "A1:X60"
    Sheets("REVENUPROFESSIONNEL").PageSetup.PrintArea = "A1:E49"
    Sheets("REVENUSALARIAL").PageSetup.PrintArea = "A1:N55"
    Sheets("REVENUETRANGER").PageSetup.PrintArea = "A1:D46"
    Sheets("REVENUFONCIER").PageSetup.PrintArea = "A1:AA39"
    Sheets("REVENUAGRICOL").PageSetup.PrintArea = "A1:X37"
    Sheets("REVENUNETTAXABLE").PageSetup.PrintArea = "A1:J59"
    Sheets("IRVERSO").PageSetup.PrintArea = "A1:A22"
    Sheets("IRRECU").PageSetup.PrintArea = "A1:R50"
 
    ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
End Sub

Cdlt

**kazannova** · 04/10/2008, 14h16

Merci fring pour votre aide

le code m'a lancé l'impression de classeur entier (presque 100 feuilles) pas les zones désirées

le problème n'est pas ici par hasard?

ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True

**fring** · 04/10/2008, 17h45

Oui cela provient de ThisWorkbook.PrintOut, si tu n'imprimes pas toutes les feuilles, essaie comme ceci :

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
Sub pdftv()
 
    Sheets("IR9000COUV").PageSetup.PrintArea = "A1:R60"
    Sheets("PERSONNEACHARGE").PageSetup.PrintArea = "A1:H60"
    Sheets("REVENUFORFITAIRE").PageSetup.PrintArea = "A1:X60"
    Sheets("REVENUPROFESSIONNEL").PageSetup.PrintArea = "A1:E49"
    Sheets("REVENUSALARIAL").PageSetup.PrintArea = "A1:N55"
    Sheets("REVENUETRANGER").PageSetup.PrintArea = "A1:D46"
    Sheets("REVENUFONCIER").PageSetup.PrintArea = "A1:AA39"
    Sheets("REVENUAGRICOL").PageSetup.PrintArea = "A1:X37"
    Sheets("REVENUNETTAXABLE").PageSetup.PrintArea = "A1:J59"
    Sheets("IRVERSO").PageSetup.PrintArea = "A1:A22"
    Sheets("IRRECU").PageSetup.PrintArea = "A1:R50"
 
    Sheets(Array("IR9000COUV", "PERSONNEACHARGE", "REVENUFORFITAIRE" _
            , "REVENUPROFESSIONNEL", "REVENUSALARIAL", "REVENUETRANGER" _
            , "REVENUFONCIER", "REVENUAGRICOL", "REVENUNETTAXABLE" _
            , "IRVERSO", "IRRECU")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
End Sub

**kazannova** · 04/10/2008, 18h17

Merci d'avoir consacré votre temps pour me répondre M. Fring

je suis maintenant sur le bon chemin mais le problème est que les feuilles s'impriment via l'imprimante par défaut et non pas PDFCreator comme au début.