Afficher un Etat + imprimer en gardant la MISE EN PAGE

Question

Bonsoir,

J'aimerais faire un aperçu avant un impression d'un état.
Dans un premier temps j'ai appliqué ce code qu'un ami m'a donné :
Private Sub Command1_Click()
On Error Resume Next
Dim A As Access.Application
Set A = CreateObject("Access.Application")
A.OpenCurrentDatabase App.Path & "\ma_base_de_donnée.mdb"
A.DoCmd.OutputTo acOutputReport, "nom_de_mon_état", acFormatHTML, App.Path & "	mp.html"
A.Quit
DoEvents
Do
    wb.Navigate App.Path & "	mp.html"
    DoEvents
Loop Until wb.ReadyState = READYSTATE_COMPLETE
Me.WindowState = 2
Do
    Err.Clear
    wb.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
    DoEvents
Loop Until Err.Number <> -2147221248
Fimpression.WindowState = 0
Me.WindowState = 0
 
End Sub
Mais la mise en forme de mon Etat n'est pas du tout comme je l'avais conçu dans Access.. Tout est collé, j'ai pas mes cadres que j'avais fais etc etc.
J'ai cherché une autre solution sur internet : c'est de convertir l'etat en un document word grace au code :
DoCmd.OutputTo acOutputReport, "Etat Utilisateur", acFormatRTF, "c:\mes documents	mp.doc", True 
=> La mise en forme est déjà meilleure (document plus aéré etc.) mais je n'ai toujours pas mes "cadres"

Savez vous pourquoi certain éléments de mon Etat n'apparaissent pas? Et quelles idée me suggérez vous pour remédier à cela? (Exporter en PDF? SnapShot? : Je n'ai pas encore trouvé les moyens de les appliqués et si cela marcherais) 

Merci

praetor62 · Answer

Bonjour,

Je me suis renseigné pour pouvoir imprimer en PDF (qui garderais la mise en forme, graphiques et tableaux)
Seulement le code et l&#8217;explication est un peu compliqué.. 
J'ai donc trouvé un mini tutoriel ici mais je n'arrive pas à faire fonctionner le code. J'ai tout fais ce qui est demandé :
- mettre les différents fichier dans le répertoire de mon projet
- Exporter les modules cités dans ma base de donnée 

Mais comment je mets en place le code?
Je n'arrive pas à faire le lien entre le code que j'ai mis sur mon dernier post et ce code..

praetor62 · Answer

petit up.. ^^"

Personne ne sait? =(

Afficher un Etat + imprimer en gardant la MISE EN PAGE

2 réponses

Votre réponse

Discussions similaires