0/5 (13 avis)
Snippet vu 16 355 fois - Téléchargée 41 fois
'ATTENTION : Il faut qd mm référencer les "Microsoft Access xx Library Object" 'Ba oui j'utilise Access qd mm, je suis pas magicien ! 'Il vous faut aussi un ctrl Webbrowser sur la form nommé Wb Private Sub BT_Click() On Error Resume Next Dim A As Access.Application Set A = CreateObject("Access.Application") 'là j'ouvre la base qui m'interesse, ici bd1.mdb du dossier de l'appli A.OpenCurrentDatabase App.Path & "\bd1.mdb" 'et là, c'est toute l'astuce, j'exporte l'état vers un fichier HTML !!! 'Ici, "Epiece" c'est le nom de l'état de la base qui m'interesse A.DoCmd.OutputTo acOutputReport, "Epiece", acFormatHTML, App.Path & "\tmp.html" A.Quit DoEvents 'Maintenant j'affiche la page générée dans mon Webbrowser Wb (que j'ai 'caché en dehors de la feuille : attention le visible =false fait des bugs) 'Le ctrl d'erreur c'est parceque des fois c'est pas pret et ca plante Do Wb.Navigate App.Path & "\tmp.html" DoEvents Loop Until Wb.ReadyState = READYSTATE_COMPLETE 'ça c'est parceque l'aperçu se dimensionne à la taille de la forme 'donc je la met en plein écran temporairement Me.WindowState = 2 'et ici je demande au Webbrowser de m'afficher l'apercu impression de la page 'le ctrl d'erreur est a peu pret pour les mm raisons, sur les systemes lents 'c'est parfois pas pret et ca plante, a qq dixieme de sec, c con ! Do Err.Clear Wb.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT DoEvents Loop Until Err.Number <> -2147221248 'ici je remet enfin la form a sa taille initiale Fimpression.WindowState = 0 End Sub 'ET LA VOUS AVEZ SOUS VOS YEUX l'apercu avant impression de l'état Access
3 nov. 2012 à 13:31
18 mai 2006 à 19:07
merci de m'indiquer
le programme on l'écrit sous VB ou sous Access
Merci pour ces réponses
11 janv. 2006 à 11:08
28 avril 2005 à 11:57
ton code m'aide bcp,
21 janv. 2005 à 03:36
si il est possibles de le faire merci de m'aider
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.