Imprimer une zone à partir d'une USERFORM

Version imprimable

20/01/2010, 09h34
miska

Imprimer une zone à partir d'une USERFORM
Bonjour à tous,

Je me permets de vous déranger puisque j'ai un petit soucis, j'ai quasiment terminé l'application que j'étais en train de développer mais je bloque encore sur un petit truc super embêtant. J'ai beau regarder sur le net depuis hier je ne trouve aucune solution à mon problème...

je souhaiterai imprimer deux page dans mon fichier excel hors deux zone bien distincte la page 1 serai : de la cellule A1 à F39.

La deuxième page serai de la cellule H1 à T22...

Pour l'instant j'ai ça :
Code:

1 2 3 Private Sub Imprimer_Click() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub
Pouvez-vous me venir en aide s'il vous plait j'en ai marre c'est le dernier truc qui me bloque pour terminer totalement mon projet :(

Merci d'avance cordialement Miska
20/01/2010, 10h07
aalex_38

Pour trouver le code, à imprimer utilises l'enregistreur de macro et :
- selectionne la zone
- Puis Fichier / zone d'impression / Définir

...

Voici ma solution (qui fonctionne)

Bonjour à Vous, MISKA

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton1_Click()
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$39"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    ActiveSheet.PageSetup.PrintArea = "$H$1:$T$22"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
End Sub

20/01/2010, 11h16
miska

Merci pour vos réponses si rapide :) je viens d'essayé ta méthode momone18 mais le problème c'est que la deuxième zone d'impression contient un graphique et quelque cellule excel, Or avec ce bout de code, il n'y a que le graphique qui apparait sans les autres cellules et en plus il est couper :/

Comment puis régler cela ?
20/01/2010, 11h50
momone18

message de momone18

Même s'il y un graphique en page 2, cela fonctionne.
il suffit de que le graphique appartienne à la zone $H1:$T22
j'ai essayé et vérifié !
Salutations et à Bientôt
21/01/2010, 09h11
miska

:) Merci pour l'info mais le graphique est sur une deuxième page, Malheureusement lorsque je souhaite lancer une impression, sur la deuxième page j'ai mon graphique et en dessous dans d'autre cellules de la page. Il m'affiche le graphique (couper) et ne m'affiche pas les cellules :/
21/01/2010, 09h17
miska

Bon je viens de réaliser un nouveau test, ça fonctionne ne me demandé pas à quoi cela était du, je n'en sais strictement rien :/, Par contre je voudrai savoir une dernière chose, comment puis-je centrer mes informations ? car la ça colle la marge de droite :/
21/01/2010, 11h48
Didier Gonard

Bonjour,

Fichier, Mise en page, onglet Marges, cocher centrer sur la page les options voulues ?

cordialement,

Didier
21/01/2010, 13h26
miska

merci de ta réponse Didier ça me paraissais tellement évident que je ne l'avais pas fait.. par contre ça ne me prend plus que mon graphique j'ai encore un problème pas rapport à ça ..
21/01/2010, 13h48
miska

bon tampis je vais marqué Résolu car je sais plus quoi faire et je pense que ça va pas être résolu comme ça je comprend pas et j'ai un autre gros problème a résoudre avant...

En tous car merci à tous pour vos réactions c'est cool

cordialement miska

Bonjour,

Avec ton contexte, utilises l'enregistreur de macro, il te donnera les commandes voulues et tu nettoies après...

genre brut de fonderie :

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub Macro1()
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
 
   ActiveSheet.PageSetup.PrintArea = "$A$1:$F$39"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
     ActiveWindow.SelectedSheets.PrintOut
End Sub
Sub Macro2()
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$H$1:$T$22"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
     ActiveWindow.SelectedSheets.PrintOut
End Sub

cordialement,

Didier

21/01/2010, 15h00
miska

Merci Didier, si ça replante, j'essaierai ta méthode , mais là j'en ai trouvé une autre qui n'est peu être pas très éthique mais bon ça fonctionne. J'ai juste rajouté un pied de page et ça fonctionne comme je le souhaite à présent :D

Merci beaucoup à tous