Discussion :

[doudou0088]

Bonjour,
je voudraissavoir comment imprimer mon etat en mode paysage.
J'ai essayé pas mal de chose mais rien ne marche. Voici mon code:

Code :

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

1
2
3
4
5
 stDocName = "Etat_Impression_MaCave"
    DoCmd.OpenReport stDocName, acNormal
    Forms("Etat_Impression_MaCave").Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut
    DoCmd.Close acForm, "Etat_Impression_MaCave"

Merci d'avance

[FreeAccess]

Bonjour,

Sauf erreur de ma part............mais il me semble que le paramètrage d'un état se fait à la conception....
Donc si tu paramètre ton Etat en mode Portrait, avec ton code proposé tu n'obtienras jamais un état en mode Paysage...
Si tu veux paramétrer un état lors de son lancement, il faut le faire en mode prévisualisation car en mode impression direct l'état conserve sa mise en page initiale.

Essaie ceci..:

Code :

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

1
2
3
4
5
6
7
8
'Ouvre l'état en prévisualisation
    DoCmd.OpenReport "NomEtat", acViewPreview
'Place l'état en mode Paysage
    Reports("NomEtat").Printer.Orientation = acPRORLandscape
'Imprime l'état
    DoCmd.PrintOut
'Ferme l'état
    DoCmd.Close acReport, "NomEtat"

....en espérant que cela réponde à ton problème....

[doudou0088]

sa marche je te remercie freeAccess t un

[popofpopof]

salut

j'ai un formulaire et un bouton qui me permet d'ouvrir un requete en graphique en apercu.
je souhaite moi aussi avoir le mode paysage par defaut mais sa marche pas chez moi ce que tu a donne tu peux me dire pk? je te donne mon code

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
42
43
Private Sub impression_Click()
On Error GoTo Err_impression_Click
 
    Dim stDocName As String
    Select Case Cadre8
        Case 1      'Requête
Printer.Orientation = acPRORLandscape
    stDocName = "analyse croisee support par mois"
    DoCmd.OpenQuery stDocName, acViewPreview
        Case 2      'Requête
Printer.Orientation = acPRORLandscape
    stDocName = "analyse croisee support par trimestre"
    DoCmd.OpenQuery stDocName, acViewPreview
        Case 3      'Requête
Printer.Orientation = acPRORLandscape
    stDocName = "analyse croisee support global"
    DoCmd.OpenQuery stDocName, acViewPreview
        Case 4      'Formulaire sans requete.
Printer.Orientation = acPRORLandscape
    stDocName = "analyse croise somme contact  mois"
    DoCmd.OpenQuery stDocName, acViewPreview
        Case 5      'Formulaire sans requete.
Printer.Orientation = acPRORLandscape
    stDocName = "analyse croisee commercial support"
    DoCmd.OpenQuery stDocName, acViewPreview
        Case 6      'Formulaire sans requete.
 
'Ouvre l'état en prévisualisation
    DoCmd.OpenReport "contact total par mois", acViewPreview
'Place l'état en mode Paysage
    Reports("contact total par mois").Printer.Orientation = acPRORLandscape
 
 
    End Select
 
Exit_impression_Click:
    Exit Sub
 
Err_impression_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_impression_Click
 
End Sub

[FreeAccess]

Bonjour.........(..pas bien le MP....)

Code :

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

DoCmd.OpenQuery stDocName, acViewPreview

Avec ton code, tu ne fais qu'ouvrir une requête en mode visualisation.....
.....comme si tu faisais un clic droit sur ta requête > Aperçu avant impression.

Si tu veux vraiment visualiser/imprimer le résultat de ta requête..alors convertie celle-ci en Etat....
Clic droit requête > Enregistrer sous > En tant que = Etat

...ensuite tu pourras utiliser le code précédent..

En espérant répondre à ta question...

[EDIT] Evite les multi-post : (je l'avais vue..)
http://www.developpez.net/forums/sho...d.php?t=468496

[popofpopof]

le probleme est que ma requete je veux bien la transforme en etat mais de ma requete je veux exporte le graphique croisé dynamique et sa je n'y arrive pas tu a une solution.?