Discussion :

[Mouyou08]

Bonjour,

Je souhaite ouvrir mon "Report" depuis un de mes formulaires via un bouton utilisant du VBA.

Je veux utiliser simplement "DoCmd.OpenReport et le nom du fichier" lorsque je fais ça au lieu de m'ouvrir le report, il essaye de l'imprimer.

Voici à quoi ressemble le code du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim objInk As MSINKAUTLib.InkPicture
Dim byt() As Byte
Dim filen As String
filen = "\\xxxx\xxx\xxxx\Project_Access\signhere\sign.gif"
Set objInk = Me.usersign.Object
byt = objInk.Ink.Save(2)
Open filen For Binary As #1
Put #1, , byt
Close #1
filen = "\\xxx\xxx\xxx\Project_Access\signhere\signlir.gif"
Set objInk = Me.lirsign.Object
byt = objInk.Ink.Save(2)
Open filen For Binary As #2
Put #2, , byt
Close #2
DoCmd.OpenReport ("Sign_1")
End Sub

Merci d'avance, pour votre aide !

[User]

Bonjour,

Si vous ne précisez pas l'argument view, par dêfaut il l'imprime. Il faut donc lui indiquer que vous souhaitez un aperçu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenReport "Sign_1", acViewPreview

[Mouyou08]

Bonjour,

Merci pour votre réponse.
Mon problème est que je ne souhaite pas voir la "Preview" je souhaite directement ouvrir le report car j'ai des boutons sur le report.

Je voulais donc savoir s'il était possible de simplement l'ouvrir grâce au VBA

[User]

Vous voulez dire l'ouvrir en mode Etat simple avec acViewReport ?

[Mouyou08]

Bonjour,

Désolé de cette réponse tardive, le problème est résolu grâce à vos explications.

Merci.