- '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
'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