Imprimer sélectivement en PDF sous Access 2007

Ces articles pourraient également vous intéresser...

13 réponses

  1. Pascal dit :

    Je me trop elle est de type texte

    • Hervé Inisan dit :

      Je devais être ailleurs en posant la question :) : il y a bien une déclaration de String dans le code, et des traitements de chaîne plus loin.
      Du coup, pour répondre à la question, l’instruction d’impression devrait sans doute être quelque chose comme :

  2. Pascal dit :

    Bonsoir,
    Heureux d’avoir trouver PrintAsPDF
    L’objectif de mon travail est de créer une attestation de paiement sous format PDF et l’envoyer par mail
    Pour le mail ma procédure fonctionne.
    Par contre le PrintAsPdf se plante avec l’erreur
    “Le moteur de base de données MOA n’a pas pu trouver l’objet ” dtnomstable1![LIDNUMMER] like xlLidnummer”

    Voici ma routine pour aller vers PrintAsPdf

    Private Sub PrepAttestaion_Click()
    On Error GoTo Err_PrepAttestaion_Click

    Dim XlReport As String
    Dim dbbasedonnée As Database
    Dim dtnomstable1 As Recordset
    Dim xlfile As String
    Dim xlLidNummer As String
    Dim xltest As String

    Set dbbasedonnée = DBEngine.Workspaces(0).Databases(0)
    Set dtnomstable1 = dbbasedonnée.OpenRecordset(“Qvereniging leden 2002″)
    ‘ Détermination du rapport de base

    XlReport = “AttestationNL2014″

    ‘ Détermination du la racine de l’attestation

    xltest = “AttestationNL-”

    ‘ Position au début du Query

    dtnomstable1.MoveFirst

    Do Until dtnomstable1.EOF

    xlLidNummer = Left(dtnomstable1![LIDNUMMER], 3) ‘Début du Numéro de membre partie numérique

    Me.BxCompteurMail = xlLidNummer ‘visualisation de XlLidNummer
    Me.Refresh

    ‘Création du Nom du fichier attestation pdf

    xlfile = xltest & xlLidNummer & “.pdf”

    PrintAsPDF Environ(“USERPROFILE”) & “\Documents\” & xlfile, _
    “AttestationNL2014″, _
    “dtnomstable1![LIDNUMMER] Like xlLidNummer’”, _
    True

    dtnomstable1.MoveNext

    Loop

    Exit_PrepAttestaion_Click:
    Exit Sub

    Err_PrepAttestaion_Click:

    MsgBox Err.Description
    Resume Exit_PrepAttestaion_Click

    End Sub

  3. Hervé Inisan dit :

    jidrop > D’où vient cet id ?

    Ou plus généralement : quel est ton code exact ?

  4. jidrop dit :

    Bonjour,
    j’ai essayé mais rien ne fonctionne chez moi
    quand j’exécute une boite de dialogue me demande “id” et ensuite il me dit l’action outputTo a été annulé erreur 2501
    ensuite je n’ai aucun champs qui s”affiche dans le semblant de Pdf

    Mon souci j’ai un état avec 158 pages et je veux faire un pdf par page qui pourrait m’aider SVP
    PS je suis nul en programmation

  5. Hervé Inisan dit :

    Tom Edgerry > Content que ça marche :-)

    Et meilleurs voeux également !

  6. Tom Edgerry dit :

    Désolé pour ce message très tardif, mais je vous remercie pour votre aide.

    Grâce à vous, j’ai pu réaliser ce que je voulais.

    Je vous souhaite également une merveilleuse année 2010.

  7. Hervé Inisan dit :

    Tom Edgerry > Le plus pratique, j’imagine, serait que l’impression soit lancée du formulaire Clients ; on suppose que l’utilisateur est positionné sur le client concerné. On peut alors écrire quelque chose comme :

    J’ai supposé que [NumClient] était de type Numérique.

  8. Tom Edgerry dit :

    Merci pour votre réponse, parce que là je sèche. Je n’ai jamais bien compris le traitement des états via pdf.

    Effectivement, l’Etat est basé sur une requête qui contient le champ [NumClient] qui me permet d’imprimer l’état par client.

    Je souhaiterai donc pouvoir l’enregistrer automatiquement, sous le numéro client.

    Merci encore pour votre aide. :-)

  9. Hervé Inisan dit :

    Tom Edgerry > Le problème est qu’au moment d’appeler PrintAsPDF, l’état n’est pas encore ouvert (fatalement :-)). Donc les informations qu’il contient ne sont pas disponibles.

    Par contre, j’imagine que le champ [NumClient] peut être lu ailleurs ? Sur un formulaire ouvert par exemple, ou dans une table ?

  10. Tom Edgerry dit :

    Bonjour,

    Avant tout, merci pour cette explication, cela me rend un grand service.

    Par contre, pouvez-vous expliquer comment on pourrait changer le nom du ficher pdf, en fonction d’une valeur affiché dans l’état sélectionné.

    Ex.: PrintAsPDF Environ(“USERPROFILE”)& “Documents” & [MonEtat].[NumClient] &”.pdf”, “MonEtat”, , True

    Je souhaite que le nom du fichier pdf change, afin de ne pas écraser le précédent.

    Merci d’avance pour votre aide.
    :-)

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Vous pouvez utiliser ces balises et attributs HTML : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">