Bonjour
Je cherche le moyen, depuis un bouton de formulaire, de faire une copie d'écran de mon formulaire et de l'enregistrer en format Jpg.
La touche Imprécran ne fonctionne pas en vba.
j'avais un code qui me permettait de le faire avec Access 97 mais depuis le passage à 2000 access me renvois une erreur lors de la fermeture du formulaire.
Merci de votre aide pour résoudre mon problème.
Message d'erreur:
L'opération sur l'objet graphique a échoué
Il est possible que le serveur OLE ne soit pas inscrit
Pour inscrire le serveur OLE, réinstaller le.
codes
Private Sub Commande7_Click()
Titres = ""
If Me![Titre_2].ControlSource <> "=""""" Then
Titres = left(Mid(Me![Titre_2].ControlSource, 3), Len(Mid(Me![Titre_2].ControlSource, 3)) - 2)
End If
Réponse = UCase(ahtCommonFileOpenSave(Flags:=0, InitialDir:="P:", _
Filter:="JPEG Files (*.jpg)", FilterIndex:=1, DefaultExt:="jpg", FileName:="DA " & _
UCase(nom_fichier(Forms![F_tri]![Titre1].Caption)), _
DialogTitle:="Enregistrer le graph sous", OpenFile:=False))
If Réponse = "" Then Exit Sub
Me![IndépendantOLE0].Object.Export FileName:=Réponse
Open left(Réponse, Len(Réponse) - 4) & ".txt" For Output As #1
Print #1, Me![Titre].Caption
Print #1, Titres
Close #1
MsgBox vbCrLf & "GRAPHE ENREGISTRE SOUS " & Chr(10) & Réponse & Chr(10) & Chr(10) & "TRI ENREGISTRE SOUS " & Chr(10) & left(Réponse, Len(Réponse) - 4) & ".txt", vbInformation + vbOKOnly, "ENREGISTRER :"
End Sub
Type tagOPENFILENAME
[code supprimé] |