Discussion :

[fclus]

Bonjour

J'ai un comportement inattendu sur un Openreport. En prévisualisation, le résultat est correct mais lorsque j'imprime via l'écran de prévisualisation, je me retrouve avec une impression du formulaire
Quelqu'un a déjà rencontré ce problème ?

Merci pour vos retours

[tee_grandbois]

bonjour,

Quelqu'un a déjà rencontré ce problème ?

non jamais, mais quelques précisions ne seraient pas de trop:
est-ce un comportement inhabituel avec le même code et le même état non modifié depuis quelques temps, ou est-ce un nouvel état avec un nouveau code (ou macro Access), dans ce cas, peux-tu le poster ?

[fclus]

C'est un état qui est utilisé quotidiennement depuis quelques années
A la création de la facture, j'alimente les tables et j'affiche le formulaire
Pour le code, rien de plus simple

Code :

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

1
2
3
4
5
6
7
Private Sub CmdPrint_Click()
If Me.Dirty Then
DoCmd.RunCommand (acCmdSaveRecord)
End If
pStrsql = "Select * From QryRepFac Where fanumero=" & Chr(34) & Me.fanumero & Chr(34)
DoCmd.OpenReport "RepFac", acViewPreview
End Sub

Le Preview est correct mais l'impression donne un résultat bien différent (j'obtiens une image du formulaire)

Pour info, si je rappelle la facture en utilisant le même formulaire, je n'ai pas ce problème !

[hyperion13]

Salut,
Pour faire simple.
Mettez L5 en commentaire.

Code :

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

DoCmd.OpenReport "RepFac", acPreview, , "fanumero = '" & Me.fanumero & "'"

Ou mais à tester

Code :

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

1
2
Reports!RepFac.RecordSource = "SELECT * FROM QryRepFac WHERE fanumero = '" & Me.fanumero & "'"
DoCmd.OpenReport "RepFac", acPreview

[fclus]

Bonjour Hyperion
L'impression fonctionne correctement si je quitte le formulaire, que je sélectionne la facture via une LD et que je rappelle le même formulaire
et sur l'évènement ouverture de RepFac, j'ai

Code :

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

me.recordsource = pStrSql