Discussion :

[electrosat03]

Salut à tous,

J'aimerais imprimer un état en PDF, je sais que la question à déjà été posée mais,

j'ai un menu contextuel où se trouve

Code :

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

1
2
3
4
5
6
7
Set mBtn = mCmdBar.Controls.Add(msoControlButton, 12499) 'Exporter Etat en PDF '12499
    With mBtn
        'on sélectionne un bouton avec une icône et un libellé
        .Style = msoButtonIconAndCaption
        .Caption = "Save as PDF"
        .FaceId = 3
    End With

Le problème, c'est que c'est un Publier comme PDF/XPS
J'aimerais mieux que se soit comme pour une sauvegarde de fichier et pouvoir définir le dossier de sauvegarde par le code VBA

Si vous avez des pistes

Merci

[micniv]

S'inspirer de cet exemple pour exporter dans un .PDF

Code :

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

1
2
3
4
5
6
7
8
 
 ' Ouvrir le report en aperçu
                DoCmd.OpenReport mCurrentRptName, acViewPreview, , , , acNormal
                ' nom complet du fichier PDF en sortie   
                sOutputFileName = strPath & strPdfFileName & ".pdf"
                DoCmd.OutputTo acOutputReport, mCurrentRptName, acFormatPDF, sOutputFileName, False
                DoCmd.Close acReport, mCurrentRptName
                MsgBox "Export en document PDF terminé", vbInformation, "TRAITEMENT TERMINE"

[hyperion13]

Salut
A tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set mBtn = mCmdBar.Controls.Add(msoControlButton, 12499) 'Exporter Etat en PDF '12499
    With mBtn
        'on sélectionne un bouton avec une icône et un libellé
        .Style = msoButtonIconAndCaption
        .Caption = "Save as PDF"
        .FaceId = 3
        .OnAction = "ExportRptInPdf()"
    End With
Sub ExportRptInPdf()
    DoCmd.OutputTo acOutputReport, "NomEtat", acFormatPDF, CurrentProject.Path & "\NomEtat.pdf", True
End Sub

[electrosat03]

Salut Hyperion13,

Ce que tu propose, je l'ai fait, mais ce n'est pas ce que je veux, car c'est un export et on ne choisi le chemin qu'après ouverture de la boite de dilogue
Je préférerais que ce soit avant.

Merci

[electrosat03]

Salut Micniv,

J'avais vu ce code, je vais l'essayer quand même
Je reviens vers vous si ce n'est pas concluant.

Merci

[hyperion13]

Salut Hyperion13,
Ce que tu propose, je l'ai fait, mais ce n'est pas ce que je veux, car c'est un export et on ne choisi le chemin qu'après ouverture de la boite de dilogue
Je préférerais que ce soit avant.
Merci

Salut
Impression ou Export ?

Code :

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

1
2
3
4
5
6
7
8
Set mBtn = mCmdBar.Controls.Add(msoControlButton)
    With mBtn
        'on sélectionne un bouton avec une icône et un libellé
        .Style = msoButtonIconAndCaption
        .Caption = "Export PDF"
        .FaceId = 3
        .OnAction = "=ExportRptInPdf()"
    End With

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
Public Sub btnExportRptToPdf()
Dim fdg As FileDialog
Dim strFilePath As String, strBackSlash As String, strFolder As String, strFileName As String, strExt As String
 
strFilePath = CurrentProject.Path
strBackSlash = "\"
strExt = ".pdf"
 
Set fdg = Application.FileDialog(msoFileDialogFolderPicker)
 
With fdg
    .AllowMultiSelect = False
    .Title = "Enregistrer fichier"
    .ButtonName = "Enregistrer sous"
    .InitialFileName = strFilePath
    .InitialView = msoFileDialogViewList
    If .Show Then
        strFolder = .SelectedItems(1) & strBackSlash
    End If
End With
If fdg.SelectedItems.Count > 0 Then
    DoCmd.OutputTo acOutputReport, "NomEtat", acFormatPDF, strFolder & "NomEtat" & strExt, False
End If
End Sub

[electrosat03]

Salut,

C'est une impression (sauvegarde en PDF) que je voudrais
Je vais essayer le code demain

Merci

[electrosat03]

Salut,

Le code fonctionne bien,

Je mets en résolu

Merci