Discussion :

[kawaya]

Bonsoir,

J'aimerais qu'en cliquant sur un bouton situé dans un de mes formulaire, exporter l'état voulu sous pdf, mais que ce pdf soit en mode paysage. Mon code ce réusme à cela 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
 
 
Private Sub cmdExport_Click()
 
    Dim stDocName As String
    Dim ter As String
 
'ouvre la boite de dialogue windows et me sors le chemin voulu
    ter = EnregistrerUnFichier(Me.hwnd, "Enregistrersous", "Test.pdf", "C:\Documents and Settings\" &  login & "\")
 
    stDocName = "rptToolsComparisonView" (Mon état)
    DoCmd.OpenReport stDocName, acPreview
'Ci-dessous la ligne qui marche pas 
    Reports![rptToolsComparisonView].Report.Orientation = acPRORLandscape
 
    DoCmd.OutputTo acOutputReport, stDocName, "PDF", ter, True
    DoCmd.Close acOutputReport, stDocName
 
End Sub

Voila si quelqu'un avait une idéee pour me dépanner.

Merci d'avance

[Gado2600]

Bonjour,
J'utilise ce genre de code pour ma part pour un formulaire :

Code :

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

1
2
3
4
Dim Nom, Formulaire as string
Forms(Formulaire).Printer.Orientation = acPRORLandscape
Nom = "C:\Users\" & Environ("UserName") & "\Desktop\Truc.pdf"
DoCmd.OutputTo acOutputForm, Formulaire, acFormatPDF, Nom, , , , acExportQualityPrint

Pour un état, cela devrait être :

Code :

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

1
2
3
4
Dim Nom, Etat as String
Report(Etat).Printer.Orientation = acPRORLandscape
Nom = "C:\Users\" & Environ("UserName") & "\Desktop\Truc.pdf"
DoCmd.OutputTo acOutputReport, Etat, acFormatPDF, Nom, , , , acExportQualityPrint

Avec les formulaires, cela fonctionne mais je n'ai pas essayé avec un état.

[kawaya]

Merci Gado ! Ca marche pour les états, par contre, j'ai testé l'impression direct sur le formulaire et j'ai une erreur, "Access ne trouve pas l'objet "|1" " D'ou cela vient il ?

Pendant que j'y suis, ton premier bout de code m'intersse beaucoup Gado. J'avais l'impression qu'il fallait necessairment passer par un état avant l'export sous PDF. Peut on faire un export de formulaire sachant que j'ai un sous formulaire (qui doit etre extensible) dans le formualire principale, ou suis je bien obligé de passer par un état ?

Merci d'avance

[Gado2600]

Euh... bonne question lol
Je ne bosse pas avec des sous-formulaires pour les entreprises. Je ne trouve pas cela très beau mais bon...
Ton erreur vient de quelle ligne de code ?
As-tu remplacer "Formulaire" par le nom de ton formulaire ?
Je crois que pour avoir le formulaire actuel c'est :

Code :

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

Me.Forms

Ensuite, vérifie bien l'adresse de destination (fais un copier-coller d'une adresse d'un répertoire dans ses propriétés pour être sûr).

[marsouin_89]

Bonjour,

Petite correction. Pour avoir le nom du formulaire actif c'est :

Code :

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

Me.Name

Cordialement

Christophe

[kawaya]

En faiut j'ai trouvé l'erruer (j'ai un peu honte), 'avais laissé acOutputReport au lieu de acOutputForm...
Donc les deux marches, seulement l'expot d'un formulaire ne permet pas d'exporter avec les sous formulaire. (Ca me fait une belle jambe..)

Merci Gado.